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Abstract 


i 


A  Bluetooth  based  network  has  been  developed  for  monitoring  and  controlling  power  sys¬ 
tems  on  board  US  Navy  Vessels.  This  network  is  intended  for  distributed  measurement 
and  control  and  is  ideally  suited  for  controlling  individual  slave  nodes.  The  slave  nodes 
are  individual  electronic  systems  which  collect  information  from  many  sensors  and  make 
appropriate  control  decisions  based  on  the  occurrence  of  well-defined  events.  Bluetooth  is 
a  low-cost,  low-power  wireless  standard,  which  boasts  a  theoretical  maximum  baud  rate  of 
approximately  750  kbps.  The  Bluetooth  standard  allows  networking  of  several  slave  nodes. 
An  important  advantage  of  this  system  is  that  it  can  be  configured  for  many  shipboard 
applications.  This  wireless  standard  uses  a  spread-spectrum  modulation  scheme  that  al¬ 
lows  reliable  communication  between  devices  within  several  sub-networks  (piconets)  in  the 
same  physical  vicinity.  A  robust  wireless  network  has  been  designed  to  maintain  reliable 
connectivity  among  nodes  even  when  the  communication  channels  are  adversely  affected  by 
the  opening  and  closing  of  watertight  doors.  For  testing  the  throughput  of  the  Bluetooth 
network  a  low-level  C++  program  has  been  designed.  The  program  establishes  a  Bluetooth 
piconet  and  records  transmission  times  for  several  different  size  files.  Experimental  perfor¬ 
mance  data  have  been  collected  using  several  different  Bluetooth  packet  types  and  network 
topologies.  Initial  tests  were  completed  in  a  long  hallway  to  provide  baseline  control  data. 
In  addition,  shipboard  testing  was  done  on  board  the  ex-USS  America.  These  tests  have 
proved  the  practicability  of  using  a  Bluetooth  network  for  shipboard  control  and  monitoring 
systems. 


Key  Words:  shipboard  uses  of  Bluetooth;  frequency  hopping  spread  spectrum  (FHSS); 
piconet;  scatternet;  shipboard  wireless  network,  fault  tolerance;  adhoc  network. 
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Chapter  1 


Project  Description  and  Goals 

1.1  Introduction 

The  Navy  is  always  looking  for  efficient  ways  to  improve  its  role  in  protecting  our  country. 
One  method  to  accomplish  this  task  is  the  reduction  of  ships’  crew  sizes.  A  military  made 
up  of  an  all- volunteer  force  is  very  expensive.  A  large  amount  of  money  is  spent  every  year 
on  training  and  salary  for  sailors  and  officers.  Reducing  crew  sizes  would  greatly  reduce  the 
cost  of  the  Navy  as  a  whole,  if  this  could  be  done  without  a  loss  of  efficiency. 

Increased  automation  on  board  ship  is  one  way  to  make  smaller  crew  sizes  possible.  A  lot 
of  man-hours  are  spent  on  board  ships  by  sailors  walking  around  the  ship  taking  readings 
and  recording  the  data  into  logbooks.  Much  of  this  time  could  be  eliminated  through  the 
use  of  a  computer  network  for  centralized  data  logging  and  display.  Such  a  network  could 
also  be  employed  in  the  area  of  damage  control,  thereby  increasing  the  safety  of  the  ship. 

One  proposed  method  of  increasing  the  automation  on  board  ship  is  the  use  of  a  wireless 
network.  While  a  computer  network  such  as  the  one  described  above  could  be  implemented 
using  a  wired  network,  wires  add  a  great  deal  of  weight  to  the  ship  and  decrease  the  structural 
and  watertight  integrity  because  of  the  holes  which  need  to  be  cut  into  the  bulkheads  for 
the  wires  to  pass  from  compartment  to  compartment.  Along  with  the  structural  advantages 
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of  a  wireless  network  there  are  also  financial  advantages.  Maintenance  and  upgrades  both 
are  much  easier  when  there  are  fewer  wires  to  deal  with,  because  there  are  no  installation 
costs.  A  wired  network  is  not  easily  or  inexpensively  reconfigured  or  upgraded.  However, 
a  wireless  network  is  easily  and  inexpensively  reconfigured  and  upgraded;  one  simply  needs 
to  download  new  software  to  reconfigure  an  entire  network.  Therefore,  the  advantages  of  a 
wireless  network  are  increased  automation,  increased  structural  integrity,  decreased  weight, 
decreased  installation  costs  (in  both  time  and  money),  and  increased  reconfigurability. 

The  purpose  of  this  proposed  research  is  to  determine  the  feasibility  of  a  Bluetooth  network 
in  a  ship-board  environment. 

1.2  Project  Description 

This  research  project  uses  radio  frequency  (RF)  attenuation  data  obtained  by  a  previous 
Trident  Scholar  at  the  U.S.  Naval  Academy,  ENS  Daniel  R.  J.  Estes,  completed  in  May  2001. 
He  performed  RF  transmission  tests  using  sinusoidal  sources  ranging  from  0.8  —  2.5  GHz  in 
frequency  on  the  ex-USS  America ,  USS  Ross,  USS  Carr,  USS  Leyte  Gulf,  and  USS  Oscar 
Austin[ 4J.  During  his  research  ENS  Estes  measured  the  signal  attenuation  through  closed 
doors  using  five  different  geometries  for  the  transmitter  and  receiver:  open  door  in  the  direct 
path  from  transmitter  to  receiver,  open  door  not  in  the  direct  path  from  transmitter  to 
receiver,  closed  doors  almost  in  the  direct  path  from  transmitter  to  receiver,  a  bulkhead 
with  no  open  doors,  and  closed  doors  not  in  the  direct  path  from  transmitter  to  receiver.  He 
concluded  that  the  maximum  RF  signal  attenuation  was  approximately  25  dB[4j.  Bluetooth 
devices  currently  have  a  receiver  sensitivity  of  —75  dBm.  This  means  that  when  using  the 
lowest  power  Bluetooth  transmitter  (0  dBm)  in  an  environment  with  no  external  noise,  a 
signal  with  75  dB  of  signal  path  loss  is  still  receivable.  This  is  the  equivalent  of  passing 
through  three  closed  doors  on  board  a  ship.  It  is  because  of  this  characteristic  of  Bluetooth 
that  we  believe  Bluetooth  is  capable  of  operating  in  a  shipboard  environment. 
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ENS  Estes  concluded  from  his  research  that  wireless  transmission  is  possible  on  board 
ships.  However,  he  used  only  unmodulated  sinusoidal  carrier  frequencies  in  his  tests.  Mod¬ 
ulated  carriers  require  much  greater  bandwidth. 


Time  (s) 
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Figure  1.1:  Sinusoid  and  Pulse  with  Fourier  Transforms 


For  example,  look  at  figure  1.1.  This  figure  shows  four  plots.  The  top  two  plots  are 
the  time-domain  representations  of  a  sinusoidal  signal  and  a  square  pulse.  The  bottom 
two  pictures  are  the  frequency-domain  representations  of  these  two  signals.  The  sinusoidal 
signal  occupies  only  one  discrete  frequency,  whereas  the  square  pulse  requires  considerably 
more  bandwidth  because  it  is  made  up  of  many  harmonically  related  sinusoids  (a  Fourier 
Series).  The  sharp  edges  of  the  pulse  are  created  by  hundreds  of  Fourier  Series  components 
and  therefore  imply  large  bandwidth.  Though  actual  digital  transmission  signals  do  not 
use  square  pulses,  because  of  the  large  bandwidth  associated  with  them,  the  signals  do  still 
occupy  much  more  bandwidth  than  a  single  sinusoid.  Our  research  entailed  another  series  of 
shipboard  wireless  testing  and  therefore  extended  ENS  Estes’  work  to  a  broader  frequency 
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range. 

Because  signal  interference  may  affect  the  phase  component  of  a  signal  along  with  its 
magnitude,  it  is  important  to  conduct  a  series  of  tests  similar  to  those  done  by  ENS  Estes, 
but  using  actual  data  communication.  When  data  are  transmitted  and  attenuated  through 
objects  such  as  bulkheads  and  doors,  a  phenomenon  known  as  Intersymbol  Interference  (ISI) 
may  occur. 


Figure  1.2:  Intersymbol  Interference 

ISI  occurs  when  a  signal  comprised  of  distinct  time-domain  symbols  or  pulses  is  distorted 
such  that  those  pulses  begin  to  “bleed”  into  one  another.  This  “bleeding”  leads  to  receiver 
errors  in  the  reconstruction  of  binary  digits  (bits).  Figure  1.2  shows  an  example  of  the  effects 
of  ISI.  The  figure,  taken  from  an  oscilloscope,  shows  the  original  signal  and  the  signal  after 
passing  it  through  a  filter  which  caused  ISI  to  occur.  The  figure  shows  many  traces  of  the 
same  signals.  The  top  signal  is  the  original.  It  is  a  series  of  random  square  pulses  two  volts 
in  amplitude.  The  bottom  signal  was  created  by  passing  the  initial  top  signal  through  a 
filter  that  was  used  to  model  a  transmission  channel  (e.g.,  a  wire  or  electromagnetic  waves). 
The  filter  attenuated  the  signal  (reduced  its  amplitude)  and  created  ISI  within  the  signal. 
From  this  figure  you  can  see  how  the  transitions  from  a  high  amplitude  to  a  low  amplitude 
are  not  as  clear  on  the  bottom  signal  as  on  the  top.  This  is  the  problem  with  ISI.  When  the 
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transition  of  a  signal  from  one  state  to  another  is  not  clear  the  signal  may  be  misinterpreted 
by  the  receiver. 

Having  seen  the  effects  of  ISI  on  the  signal  itself  what  are  the  affects  of  ISI  on  the  actual 
data  sent?  The  most  likely  effect  of  ISI  on  digital  data  is  bit  errors.  Bit  errors  are  the  alter¬ 
ation  of  a  single  bit  or  multiple  bits  of  data  during  transmission.  Since  a  bit  is  represented 
as  a  “0”  or  a  “1”,  a  bit  error  occurs  when,  through  ISI  or  noise,  a  bit  is  altered  either  from 
a  “1”  to  a  “0” ,  or  vice  versa.  Small  numbers  of  bit  errors  have  little  or  no  effect  on  some 
types  of  data  ( e.g .,  voice  and  video),  however  a  single  bit  error  in  other  data  ( e.g .,  hies  and 
control  information)  may  require  retransmission  of  that  data. 


Chapter  2 


Bluetooth 


This  chapter  provides  some  background  information  about  the  Bluetooth  Wireless  Stan¬ 
dard.  We  will  define  terms  relative  to  the  Bluetooth  standard,  discuss  the  proposed  uses 
for  Bluetooth  equipment,  explain  basic  Bluetooth  network  operation,  and  discuss  how  to 
interface  a  Bluetooth  transmitter  with  a  host. 

2.1  Bluetooth  Basics 

Engineers  at  Ericsson  first  conceived  of  a  new  standard  for  wireless  ad-hoc  networking  in 
the  mid  90’s.  The  new  standard  was  named  after  a  king  of  Denmark  who  united  Denmark 
and  Norway  and  brought  Christianity  to  Scandinavia.  [2J  That  Bluetooth  is  a  standard.  It  is 
not  the  name  of  a  specific  product.  Different  vendors  design  products  which  must  conform 
to  this  standard. 

The  Bluetooth  specification  defines  a  short-range,  low-power  consumption,  radio  frequency 
(RF)  technology  for  digital,  wireless  communication.  Bluetooth  is  aimed  at  replacing  the 
serial  cables  which  are  used  on  a  day-to-day  basis  with  many  electronic  devices,  such  as  the 
cables  connecting  the  mouse  and  keyboard  to  a  personal  computer.  Bluetooth  is  also  capable 
of  coding,  decoding,  and  transmitting  voice  data,  making  it  applicable  to  cellular  telephones 
and  wireless  headsets. 
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Figure  2.1:  Bluetooth  tranceiver  module 

Bluetooth  transmits  in  the  unlicensed  frequency  band  (2.4-2.48  GHz).  Because  this  fre¬ 
quency  range  is  used  by  many  other  devices  (e.g.,  cordless  telephones  and  microwave  ovens), 
Bluetooth  devices  must  address  the  problem  of  interference  with  these  other  devices.  To 
accomplish  this  task,  Bluetooth  incorporates  a  Frequency  Hopping  Spread  Spectrum  (FHSS) 
scheme.  The  frequency  hopping  pattern  is  chosen  by  a  pseudonoise  (PN)  code  generator. 
Pseudonoise  is  defined  as  a  seemingly  random  sequence  or  code.  A  pseudonoise  code  appears 
random  to  an  uninformed  observer;  however,  it  can  actually  be  seen  to  be  predictable  by 
a  privileged  user  who  knows  the  PN  code  generation  system.  A  PN  generator  includes  the 
circuitry  together  with  a  seed  value  (initial  value  fed  to  the  circuitry),  and  a  clock  which  pro¬ 
duce  PN  codes.  Spread  spectrum  refers  to  dividing  transmissions  among  several  frequency 
channels  (79  channels  for  Bluetooth)  as  opposed  to  assigning  them  to  a  single  channel  for  the 
entire  transmission.  Thus  there  are  specific  times  during  which  transmissions  may  occur  on 
a  single  frequency  and  these  are  called  time  slots.  Bluetooth  changes  transmission  channels 
at  a  rate  of  1600  hops/s  creating  625  ps  time  slots.  For  example,  if  a  user  wanted  to  transmit 
1  kbyte  of  data,  instead  of  sending  all  of  the  information  on  a  single  channel  where  a  burst  of 
noise  could  destroy  the  entire  transmission,  the  data  would  be  segmented  and  each  segment 
transmitted  on  a  different  channel.  Therefore,  if  a  burst  of  RF  noise  on  a  specific  channel 
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corrupts  that  information  the  majority  of  the  data  would  be  preserved.  The  fact  that  data 
were  corrupted  will  be  known  at  the  receiver,  so  the  corrupted  data  may  be  retransmit¬ 
ted.  Frequency  hopping  refers  to  the  order  in  which  each  transmission  channel  is  used.  In 
a  frequency- hopping  scheme,  channels  are  chosen  randomly.  This  builds  security  into  the 
system.  Only  the  transmitting  and  receiving  device  will  know  what  the  next  transmission 
channel  is  because  they  will  be  synchronized  before  any  transmissions  take  place.  Along  with 
FHSS,  Bluetooth  also  implements  several  error-detection  and  -correction  techniques.  One  of 
which  is  Cyclic  Redundancy  Codes  (CRC).  A  CRC  is  a  series  of  bits  appended  at  the  end 
of  a  data  packet  with  which  the  receiver’s  hardware  can  determine  if  errors  are  present  in 
the  received  data.  If  an  error  is  present  the  receiver  will  request  a  retransmission  from  the 
originating  device. 

2.2  Bluetooth  Networking 

A  Bluetooth  network  is  made  up  of  master  and  slave  devices.  The  designation  of  a  device 
as  a  master  or  slave  occurs  as  the  network  is  being  established.  This  designation  is  in 
no  way  indicative  of  the  capabilities  of  the  device:  it  merely  designates  which  device  will 
control  network  operations.  The  master  device  determines  the  frequency-hopping  pattern 
and  synchronizes  the  PN  generators  of  other  devices,  assigns  network  addresses  to  other 
devices,  and  handles  all  communication  procedures  between  devices.  The  master  controls 
the  network. 

The  most  basic  Bluetooth  network  is  a  single  point-to-point  link.  A  point-to-point  link  is 
a  communication  link  from  one  remote  device  to  another  remote  device.  We  will  use  this 
type  of  network  as  an  example  of  how  to  establish  a  Bluetooth  network. 

Bluetooth  network  setup  is  accomplished  completely  by  the  software  and  hardware  within 
a  given  Bluetooth  device.  No  input  from  the  user  is  necessary.  The  first  step  to  establishing 
a  network  is  for  one  device  to  execute  an  inquiry.  During  an  inquiry  the  device  is  sending 
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signals  and  waiting  for  replies  to  determine  if  there  are  any  other  Bluetooth  devices  within 
range.  When  a  second  Bluetooth  device  receives  this  inquiry  signal  it  will  respond  with, 
among  other  information,  its  Bluetooth  Device  Address  (BD_ADDR).  Upon  receipt  of  this 
response  the  inquiring  device  becomes  master  of  the  network  and  will  use  the  BD_ADDR  of 
the  second  device  to  contact  that  device  until  a  communication  link  is  established. 

This  leads  to  the  next  step:  creating  a  link  between  devices.  Bluetooth  provides  two  types 
of  communication  links  between  devices:  Asynchronous  Connection-Less  (ACL)  links  and 
Synchronous  Connection-Oriented  (SCO)  links.  SCO  links  are  reserved  for  voice  traffic  so  we 
will  not  go  into  detail  about  them.  ACL  links  are  used  for  data  traffic.  They  can  be  point- 
to-point  or  point-to-multipoint  (broadcast)  transmissions  and  most  ACL  communications 
can  be  retransmitted  in  case  of  errors.  In  order  to  establish  an  ACL  link  the  master  will 
enter  a  page  mode  in  which  it  will  send  connection  requests  to  devices  for  which  it  has 
the  BD_ADDR.  In  a  two-device  network,  that  would  be  the  only  device  which  responded 
to  the  master’s  inquiry.  The  slave  device  then  has  the  option  of  accepting  or  rejecting  the 
connection  request.  Assuming  that  the  slave  accepts  the  connection  request  it  will  then 
transmit  more  information  about  itself  to  the  master.  The  master  will  use  this  information 
to  establish  rules  for  transmissions  on  this  link,  such  as  data  transmission  rate  or  encryption 
type.  Once  an  ACL  link  is  established,  data  transmission  between  master  and  slave  can  take 
place. 

The  basic  multi-slave  Bluetooth  network  is  a  piconet  (Figure  2.2).  A  piconet  is  defined  as 
a  network  consisting  of  a  master  and  up  to  seven  slaves.  The  master  and  slaves  of  a  piconet 
form  a  star  topology.  All  transmissions  must  go  through  the  master.  For  example  if  Slave 
One  wants  to  communicate  with  Slave  Two,  Slave  One  must  first  send  the  data  to  the  master 
and  then  the  master  will  send  the  data  to  Slave  Two. 

The  procedures  to  establish  a  link  are  the  same  in  a  piconet  as  described  above  for 
a  point-to-point  connection.  The  only  difference  is  that  an  inquiry  may  result  in  several 
devices  responding  instead  of  only  one.  When  the  master  is  ready  to  create  a  link  it  can 
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Typical  Scattemet 


Figure  2.2:  Bluetooth  Network 

choose  with  which  devices  it  wants  to  create  a  connection. 

2.3  Interfacing  a  Bluetooth  Device  with  a  Host 

The  first  step  to  creating  a  Bluetooth  network  is  to  create  an  interface  or  method  of 
communication  from  the  Bluetooth  device  to  a  host.  A  host  is  the  electronic  device  which 
will  be  running  Bluetooth  applications  (e.g.,  a  computer,  cell  phone,  or  Palm  Pilot).  A  host 
and  Bluetooth  transceiver  interfaced  together  make  up  a  Bluetooth  master  or  slave  (figure 
2.3,  The  majority  of  the  transmission  procedures  and  link  policy  controls  for  Bluetooth 
are  taken  care  of  by  the  firmware  included  in  the  Ericsson  Bluetooth  module  which  we 
used.  Firmware  is  code  which  is  written  in  read-only  memory  (ROM),  normally  within  a 
microcontroller.  This  firmware  and  the  associated  hardware  on  the  Bluetooth  transceiver 
which  handle  the  interface  with  the  host  are  collectively  known  as  the  host  controller.  The 
protocols  and  code  used  in  dealing  with  this  interface  are  known  as  the  Host  Controller 


Interface  (HCI)  layer. 
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Physical  Layer 


Figure  2.3:  A  Bluetooth  Node,  Composed  of  the  Host  and  Host  Controller. 

The  HCI  is  the  Bluetooth  networking  layer  that  provides  a  standard  interface  for  a  host 
to  communicate  with  a  Bluetooth  transceiver  through  a  Universal  Serial  Bus  (USB),  RS-232 
serial  communication  port,  or  a  Universal  Asynchronous  Receiver- Transmitter  (UART)  serial 
connection.  A  host  passes  commands  and  data  to  the  host  controller,  which  then  interprets 
the  commands  and  passes  instructions  to  the  Link  Manager  Protocol  (LMP)  layer,  which  is 
the  Bluetooth  layer  that  controls  the  actual  wireless  link  and  data  transmission. 

All  information  that  is  passed  from  the  host  to  the  host  controller  (or  vice  versa )  is  passed 
in  packets.  A  packet  is  basically  a  number  of  bytes  arranged  in  a  standard  order  so  that  they 
can  be  interpreted  by  a  receiving  device.  Bluetooth  uses  four  types  of  packets:  command 
packets,  event  packets,  and  ACL  and  SCO  data  packets.  ACL  and  SCO  data  packets  are 
used  for  transmitting  the  ACL  and  SCO  data,  respectively.  Command  and  event  packets  are 
used  to  transmit  control  or  status  information  (figure  2.3).  Command  packets  are  sent  only 
from  the  host  to  the  host  controller  and  are  instructions  to  be  executed  by  the  Bluetooth 
device.  Event  packets  are  sent  only  from  the  host  controller  to  the  host  and  are  used  to 
inform  the  host  of  the  status  of  requested  commands  or  events  that  take  place  within  the 
network  or  within  the  Bluetooth  transceiver  itself.  Figure  2.4  shows  the  general  layout  of  an 


event  packet. 
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Figure  2.4:  Bluetooth  HCI  Event  Packet  1 


2.4  Bluetooth  Data  Transmission 

Once  a  Bluetooth  link  is  set  up  and,  in  the  case  of  ACL  data,  once  a  connection  has 
been  successfully  established,  it  is  possible  to  transmit  data.  In  order  to  prepare  the  data 
for  transmission  the  host  must  first  encapsulate  the  data  (figure  2.5).  Encapsulated  data 
is  referred  to  as  a  data  packet.  Data  encapsulation  is  analogous  to  placing  a  letter  inside 
an  addressed  envelope.  When  data  is  encapsulated,  a  header  (and  sometimes  a  trailer)  is 
appended  to  the  beginning  (and  end)  of  the  data.  The  information  contained  in  a  header  is 
similar  to  an  address  on  a  letter.  The  header  contains  information  regarding  the  recipient  of 
the  packet,  the  size  of  the  packet,  and  the  type  of  data  contained  in  the  packet. 

In  the  case  of  ACL  data,  the  Bluetooth  standard  defines  two  types  of  packets  in  which  the 
data  must  be  encapsulated  prior  to  transmission.  Each  type  of  packet  consists  of  a  packet 
header  followed  by  the  data  payload.  The  first  packet  type  is  the  Logical  Link  Control  and 
Adaptation  Protocol  (L2CAP)  packet.  The  L2CAP  basically  determines  the  general  type  of 
data  being  received  and,  if  several  programs  are  using  the  same  Bluetooth  link,  the  L2CAP 
determines  to  which  program  the  data,  belongs.  The  purpose  then  of  the  L2CAP  packet  is  to 
route  the  data  to  whichever  application  needs  it.  Encapsulation  of  data  in  an  L2CAP  packet 


Bluetooth  Data  Ecapsulation 
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L2CAP  (Higher  Layer)  Packet 


ACL  (HCI  Layer)  Packets 


Figure  2.5:  Data  encapsulation. 

occurs  as  shown  in  figure  2.6.  The  packet  header  is  composed  of  a  two-byte  data- length 
parameter  followed  by  a  two- byte  channel  identifier  (CID).  The  packet-length  parameter 
informs  the  receiver  of  the  size  of  the  data  payload  in  bytes  (65,  535  bytes  maximum),  while 
the  CID  is  used  to  route  the  data  to  the  correct  application.  Directly  following  the  CID  is 
the  actual  data  (he.,  the  payload  of  the  L2CAP  packet).  This  L2CAP  packet  is  then  itself 
encapsulated  in  one  or  several  ACL  data  packets. 

L2CAP  Data  Packet 
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Figure  2.6:  L2CAP  Data  Packet 
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First  ACL  Data  Packet 
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Figure  2.7:  ACL  Data  Packets 

An  ACL  packet  header  (figure  2.7)  consists  first  of  a  twelve-bit  connection  handle.  The 
connection  handle  designates  the  connection  over  which  the  packet  is  intended  to  be  trans¬ 
mitted.  Following  the  connection  handle  are  two  two-bit  flags:  the  packet  boundary  (PB) 
flag  and  the  broadcast  (BC)  flag.  The  PB  flag  is  used  to  designate  whether  the  given  ACL 
packet  is  the  first  packet  of  an  L2CAP  message  or  a  continuing  fragment  of  an  L2CAP  mes¬ 
sage.  The  BC  flag  designates  whether  the  ACL  packet  is  intended  for  one  specific  slave  or 
the  whole  piconet  (multicasting).  The  last  part  of  the  ACL  packet  header  is  a  two-byte  data 
length.  This  parameter  specifies  the  length  of  the  data  payload  (in  bytes)  contained  in  the 
ACL  packet.  The  maximum  size  of  an  ACL  data  packet  is  determined  by  the  buffer  size  of 
the  host  controller.  If  an  L2CAP  packet  is  larger  than  the  maximum  size  of  an  ACL  packet 
then  the  L2CAP  packet  must  be  divided  up  amongst  several  ACL  packets  for  transmission. 
For  example  the  Ericsson  Bluetooth  transceiver  we  used  has  an  ACL  buffer  size  of  672  bytes. 
Therefore,  if  an  L2CAP  packet  is  larger  than  672  bytes  it  will  require  several  ACL  data 
packets  to  transmit  that  one  L2CAP  packet. 
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Encapsulation  of  an  L2CAP  packet  within  ACL  packets  takes  place  as  shown  in  figure 
2.7,  The  first  ACL  packet  contains  (as  ACL  data  payload)  the  packet  header  of  the  L2CAP 
packet  followed  by  as  much  L2CAP  data  payload  as  needed  to  fill  the  ACL  packet.  The 
remaining  L2CAP  data  payload  is  then  encapsulated  in  as  many  ACL  packets  as  needed. 
The  ACL  packets  are  then  transmitted  via  UART  or  USB  to  the  host  controller  on  the 
Bluetooth  transceiver  where  they  are  then  sent  over  the  RF  link  to  the  receiving  device. 

2.5  Bluetooth  Transmission  Rates 
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Figure  2.8:  Illustration  of  baseband  packet  transmission 


The  Bluetooth  standard  provides  for  six  different  transmission  rates  made  possible  by 
six  different  types  of  baseband  data  packets.  Baseband  data  packets  are  different  from  the 
packets  previously  discussed.  When  received  by  the  Bluetooth  transceiver  the  ACL  packets 
are  broken  up  and  their  data  are  placed  in  baseband  packets  which  are  the  packets  actually 
transmitted  over  the  wireless  channel.  The  six  types  of  baseband  packets  are:  DM1,  DH1, 
DM3,  DH3,  DM5,  and  DH5  where  the  “D”  signifies  a  data  packet;  “M”  or  “H”  signifies  a 
medium-  or  high-speed  packet  respectively;  and  the  numbers  1,  3,  and  5  signify  the  number 
of  time  slots  utilized  by  the  packet.  The  difference  between  medium-  and  high-speed  packets 
is  that  high-speed  packets  have  fewer  error  detection  bytes  and  thus  have  a  higher  data 
rate.  The  other  key  to  increasing  data  rate  is  the  number  of  time  slots  used  by  each  packet. 
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The  more  time  slots  used  by  a  packet  the  faster  the  data  rate  of  that  packet.  This  is 
because  as  more  time  slots  are  being  used  for  a  single  packet,  more  time  is  being  allowed  for 
that  transmission  to  take  place,  as  opposed  to  halting  transmission  and  continuing  during 
a  subsequent  time  slot.  The  second  example  uses  more  header  bytes  (thus  more  overhead) 
slowing  down  transmission  of  actual  data.  This  is  why  the  DM1  and  DH1  packets  are  the 
slowest.  Figure  2.8  gives  a  graphical  depiction  of  the  baseband  data  packets. 


Chapter  3 


The  Transmission  Test  Program 


We  have  created  two  test  programs  along  with  the  associated  graphical  user  interfaces 
(GUI’s)  for  running  transmission  tests  and  logging  test  data  (figure  3.1).  One  program  is 
designed  to  be  used  only  for  a  two  device  (point-to-point)  network.  The  second  program 
is  capable  of  conducting  transmission  tests  between  two  or  three  devices.  The  program 
that  will  be  discussed  in  detail  here  is  the  point-to-point  program.  The  goal  of  the  test 
program  is  to  determine  the  performance  of  a  Bluetooth  link  through  a  closed  watertight 
door  onboard  a  United  States  Naval  vessel.  The  value  measured  by  the  test  program  is  the 
round-trip  transmission  time  for  Bluetooth  data  transmissions.  From  the  transmission  time, 
a  value  for  data  throughput  can  be  calculated  using  equation  (3.1),  where  R  is  the  data 
throughput  in  bits/s,  ndata  is  the  number  of  data  bytes  transfered,  and  fround  trip  is  the  round 
trip  transmission  time  in  seconds. 


R 


8  n, 


data 


Ground  trip/ 2 


1677-data 

Ground  trip 


(3.1) 


The  test  program  is  designed  for  measuring  round  trip  transmission  times  of  small  (be., 
10  —  6500  byte)  text  files  across  a  Bluetooth  link.  To  accomplish  this  the  program  reads 
in  two  specially  created  test  data  files,  then  times  and  records  the  round-trip  transmission 
times  for  each  file  and  repeats  this  for  a  number  of  trials  specified  by  the  user.  The  test 
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Figure  3.1:  User  Interface  to  the  Transmission  Test  Program 

program  has  been  created  such  that  it  may  be  used  as  either  a  master  or  a  slave,  and  may 
be  used  as  either  the  testing  platform  (transmitting  the  hies  and  recording  the  test  data)  or 
as  the  receiving  platform  (simply  receiving  and  retransmitting  the  test  data). 

The  test  data  hies  (figure  3.2)  are  specially  formatted  to  be  read  into  the  transmission 
test  program.  The  hie  begins  with  an  integer  representing  the  size  of  the  hie,  followed  by 
four  characters  to  reserve  buffer  space  for  the  L2CAP  header,  and  finally  the  test  data  itself 
(he.,  a  simple  character  string). 

Upon  completion  of  each  transmission  the  round-trip  transmission  time  in  seconds  is 
recorded  in  a  text  hie  of  comma-separated  values  which  may  be  read  into  an  Excel  spread¬ 
sheet.  In  order  to  make  data  logging  easier,  information  such  as  the  time  and  date  a  given 
test  was  performed,  distance  between  nodes,  topology,  master  and  slave  Bluetooth  addresses, 
receive  signal  strength  (dB),  baseband  packet  type,  and  test  hie  sizes  (in  bytes)  are  recorded 
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Figure  3.2:  Example  of  a  test  data  file 


at  the  start  of  each  test.  Distance  between  nodes,  topology,  and  baseband  packet  type  are 
each  selected  by  the  user  prior  to  beginning  a  test  and  written  to  the  test  data  hie.  Time 
and  date,  master  and  slave  Bluetooth  addresses,  receive  signal  strength,  and  test  hie  sizes 
are  each  either  read  from  the  computer  or  from  the  Bluetooth  transceiver  automatically  and 
logged  in  the  output  data  hie.  Once  a  test  has  begun  the  transmission  number,  round  trip 
transmission  time  (for  the  small  and  large  hie),  processing  time  (from  the  remote  computer), 
and  number  of  errors  is  recorded  for  each  transmission.  An  example  output  hie  is  shown  in 
figure  3.3, 


E'  Haltway_p2p_pkt1  .txt  -  Notepad 

BBS 

I  File  Edit  Format  View  Help 

Begin  Test  File 

Sat  Apr  05  16:44:46  2003| 

A 

Test  1 

Sat  Apr  05  16:45:35  2003 

Distance  ,5m 

Topology  ,A 

Master,  0X008037144290 

Slaoe, 0X008 03714429F 

RSSI  (dB),-3 

Pkt  Type, DM1 

Sn  File  Size, 1000 

Lg  File  Size,5B0 

Trans, Sn  File, Tproc, Errors, Lg 
1,0.345,0,500,0.234,0,0 

File ,  Tproc ,  Errors 

2,0.329,0,500,0.254,0,0 

3,0.344,0,500,0.264,0,0 

4,0.344,0,500,0.264,0,0 

5,0.344,0,500,0.264,0,0 

V 

_ 

Figure  3.3:  Example  of  a  test  results  output  file 


3.1  Program  Operation 
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Prior  to  the  transmission  of  any  data  a  Bluetooth  link  must  be  established.  In  order 
to  begin  establishing  a  network  the  Bluetooth  transceiver  must  first  be  initialized.  The 
initialization  process  consists  of  a  series  of  commands  which  must  be  sent  from  the  host  to 
the  host  controller  and  summarized  in  table  3.1.  These  commands  are  issued  to  the  host 
controller  in  the  order  shown  at  the  start  of  the  program. 


HCI  Command 

Description 

Reset 

Resets  the  Bluetooth  module. 

Read  Buffer  Size 

Informs  the  host  of  the  size  of  the  data  buffer  in  the 
Bluetooth  module. 

Host  Buffer  Size 

Informs  the  Bluetooth  module  of  the  size  of  the  host’s 
data  buffer. 

Write  Scan  Enable 

Enable  the  Bluetooth  module  to  scan  for  inquiries  and 
connection  requests  from  other  Bluetooth  devices. 

Write  Authentication  Enable 

Informs  the  Bluetooth  module  if  link  authentication  will 
be  used  or  not. 

Set  Event  Filter 

Used  to  filter  unwanted  events  and  automate  the 
acceptance  of  a  connection  request. 

Write  Connection  Accept  Timeout 

Sets  the  amount  of  time  the  Bluetooth  module  is  allowed 
to  wait  for  the  remote  device  to  accept  a  connection 
request  event  before  automatically  rejecting  the  request. 

Write  Page  Timeout 

Sets  the  amount  of  time  the  Bluetooth  module  is  allowed 
to  wait  for  a  remote  device  to  respond  to  a  connection 
request. 

Table  3.1:  Bluetooth  Initialization  Commands 


Once  the  transceiver  is  initialized,  an  inquiry  is  executed.  The  purpose  of  an  inquiry 
is  to  determine  if  there  are  any  Bluetooth  -capable  devices  within  range  of  the  inquiring 
device.  If  a  Bluetooth  device  is  found  within  range,  information  about  that  device  is  passed 
from  the  host  controller  to  the  host.  The  user  can  then  decide  to  create  a  connection  with 
the  discovered  device.  As  stated  earlier,  after  the  connection  is  established  it  is  possible  to 
transmit  data  from  one  device  to  another.  The  connection  process  is  summarized  in  figure 
3.4, 

Transmission  test  timing  is  accomplished  by  starting  a  timer  just  before  transmission  of  a 
test  hie  begins  and  stopping  the  timer  after  the  last  byte  of  the  hie  has  been  received  by  the 
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Connection  Request 
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-k 

Figure  3.4:  Bluetooth  connection  setup  timing  diagram 

host  that  originally  sent  the  file.  During  data  transmission  there  are  several  factors  which 
must  be  considered. 

•  What  type  of  transmission  is  being  requested?  Small  file?  Large  file?  Or  retransmission 
of  a  received  file?  ( e.g A  slave  only  re-transmits  received  data.) 

•  flow  many  ACL  data  packets  will  be  needed  to  transmit  the  file? 

•  Will  the  host  controller’s  data  buffer  overflow? 

A  detailed  flow  chart  of  the  test  data  transmission  routine  is  shown  in  figure  3.5, 

The  Bluetooth  test  program  receives  data  by  checking  the  host  computer’s  COMM  port 
buffer  at  an  interval  of  one  millisecond.  If  data  are  present  the  data  are  then  inspected  and 
a  decision  is  made  on  how  to  respond  or  process  the  received  data.  In  the  case  that  test 
data  are  received,  the  receive  routine  enters  a  loop  which  continues  reading  the  COMM  port 
until  all  test  data  are  received.  The  reason  for  entering  the  loop  is  to  reduce  timing  errors 
caused  by  the  inherent  delay  in  the  polling  scheme.  When  the  entire  data  file  has  been 
received  a  timer  is  started  to  measure  the  computation  time  used  by  the  remote  computer 
preparing  the  data  for  retransmission  to  the  originating  computer.  After  the  data  have  been 
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prepared  for  retransmission,  the  timer  is  stopped  and  the  processing  time  is  transmitted  to 
the  originating  computer  along  with  the  test  data  hie.  Upon  receipt  of  the  entire  test  data 
hie  by  the  originating  computer,  the  transmission  timer  is  stopped  and  the  results  written  to 
the  output  hie  along  with  the  processing  time  used  by  the  remote  computer.  After  storing 
the  information  this  whole  process  is  repeated  for  a  number  of  iterations  defined  by  the  user. 

The  test  program  has  certain  limitations  worthy  of  note. 

1.  The  test  hie  sizes  are  limited  to  6.7  kbytes  by  the  buffers  available  on  the  Bluetooth 
transceiver.  This  problem  could  be  overcome.  However,  there  are  bugs  in  this  part 
of  the  code  which  have  yet  to  be  solved.  A  buffer  overhow  has  been  occurring  in  the 
host  controller  when  hies  larger  than  6.7  kbytes  is  used.  HCI  how  control  has  been 
implemented;  however,  the  details  have  yet  to  be  worked  out. 

2.  The  maximum  possible  data  rate  of  the  UART  is  115  kbps.  Bluetooth,  however,  allows 
six  different  data  rates,  hve  of  which  are  greater  than  115  kbps.  This  means  that 
transmission  tests  using  the  faster  Bluetooth  data  rates  appear  to  transmit  at  the  UART 
rate  instead  of  the  expected  Bluetooth  rate. 

During  testing  of  the  program  a  few  transmission  errors  seemed  to  escape  detection  by 
the  error  detection  and  correction  methods  implemented  in  the  Bluetooth  hardware.  As 
these  errors  occurred,  the  program  was  thrown  into  an  infinite  loop,  effectively  crashing 
the  program.  Upon  further  inspection  we  realized  that  the  error  was  a  missing  byte  in 
the  received  data.  Since  a  whole  byte  was  missing  from  the  data  hie,  the  program  hung 
up  waiting  for  a  byte  that  would  never  be  received.  This  problem  was  solved  by  adding  a 
timeout. 

The  timeout  prevents  the  program  from  staying  in  an  infinite  loop  caused  by  a  missing 
byte  in  a  received  hie.  When  this  occurs  the  program  then  throws  out  all  of  the  data  that  had 
been  received  and  makes  a  note  of  the  error  in  the  output  hie.  For  a  program  to  eliminate  this 
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process  of  discarding  the  data  it  would  need  to  implement  an  algorithm  capable  of  searching 
for  the  missing  byte  and  adapting  to  this  error. 

The  three-node  test  program  works  in  much  the  same  way.  However,  instead  of  a  round- 
trip  transmission  being  between  just  two  computers,  the  data  hie  must  be  transmitted  four 
times  to  complete  a  round-trip.  The  first  transmission  is  from  one  slave  to  the  master,  next 
from  the  master  to  the  second  slave,  then  back  to  the  master,  and  finally  back  to  the  original 
slave.  The  transmit  and  receive  routines  are  similar  to  those  of  the  point-to-point  program. 
One  change  is  that  in  the  three-node  system  the  master  decides  to  which  slave  to  transmit 
the  hie  based  on  which  slave  it  is  being  received  from.  Secondly  the  processing  times  used  by 
the  master  and  second  slave  are  summed,  resulting  in  the  total  processing  time  used  during 
the  complete  round-trip  transmission. 
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Figure  3.5:  Flow  Chart  of  the  Test-data  Transmission  Routine 


Chapter  4 


Transmission  Tests 


We  ran  two  sets  of  tests  for  this  project.  The  first  set  of  tests  was  run  in  the  basement 
hallway  of  Michelson  Hall  at  the  United  States  Naval  Academy.  The  purpose  of  this  set  of 
tests  was  to  provide  a  baseline  for  evaluating  the  results  of  the  second  set  of  tests  completed 
on  board  the  ex-USS  America.  The  data  throughput  for  shipboard  tests  was  expected  to 
drop  due  to  packet  retransmissions  caused  by  a  decrease  in  signal  to  noise  ratio,  which  in 
fact  did  occur. 
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Figure  4.1:  Bluetooth  packet  acknowledgement  process  [1 
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As  a  way  of  ensuring  reliable  packet  delivery  Bluetooth  implements  an  automatic  repeat 
request  (ARQ)  packet  retransmission  scheme.  Bluetooth  ARQ  works  by  having  the  recipient 
of  a  packet  reply  with  an  acknowledgment  indicating  the  success  or  failure  of  the  previous 
data  transmission.  The  acknowledgement  is  transmitted  in  the  recipient’s  next  transmission 
time  slot  immediately  following  the  data  transmission.  Figure  4.1  shows  this  process.  An 
ACK  (positive  acknowledgement)  is  transmitted  in  the  case  of  a  successful  transmission 
and  a  NACK  (negative  acknowledgment)  is  transmitted  in  the  case  of  a  packet  arriving  with 
errors.  The  default  value  for  this  acknowledgment  is  NACK  so  that  if  a  packet  is  not  received, 
the  recipient’s  transmission  time  slot  following  the  transmitter’s  unsuccessful  attempt  will 
contain  a  NACK.  When  a  NACK  is  received  by  the  originator,  the  last  packet  transmitted  is 
retransmitted.  This  sequence  will  continue  for  a  vendor  specified  number  of  attempts  until 
the  transmitting  device  finally  times  out  and  drops  the  packet. 


4.1  Hallway  Tests 


Figure  4.2:  Michelson  hallway  tests 


4.1.1  Test  Setup 

The  first  set  of  transmission  tests  were  completed  in  the  hallway  of  the  basement  of 
Michelson  just  outside  room  ML1.  One  laptop  set  up  outside  ML1  on  a  lab  cart  (shown  in 
the  left  half  of  figure  4.2)  and  another  laptop  was  set  on  a  chair  in  the  middle  of  ML1  (shown 
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Hallway  Test  Topology 


Figure  4.3:  Hallway  test  topology 

in  the  right  half  of  figure  4.2).  In  order  to  reduce  interference  from  metal  objects  near  the 
Bluetooth  transceivers  they  were  attached  to  wooden  dowels  using  velcro,  with  the  dowel 
rods  being  placed  in  a  retort  stand.  The  topology  was  arranged  such  that  the  computers 
were  5  m  apart  and  the  computer  in  the  hallway  was  offset  from  the  door  to  ML1  (figure 
4.3).  The  topology  was  changed  for  each  test  by  changing  the  angle  that  the  door  was  open 
(angle  9  in  figure  4.3).  Tests  were  run  with  the  door  in  five  different  positions:  wide  open 
(90°),  45°  open,  15°  open,  cracked  open  (approx.  1°),  and  closed  (0°). 

Hallway  testing  was  completed  using  four  different  hie  sizes:  500  bytes,  1  kbytes,  2.5  kbytes, 
and  5  kbytes.  Each  hie  was  transmitted  ten  times  to  complete  a  test.  Tests  were  completed 
using  all  six  of  the  available  Bluetooth  baseband  packets  in  each  of  the  hve  topologies, 
resulting  in  a  total  of  1200  hie  transmissions. 


4.1.2  Test  Results 
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The  results  from  the  hallway  tests  revealed  that  the  position  of  the  door  had  essentially  no 
effect  on  transmission  rates  and  therefore  no  effect  on  the  error  rates  within  the  Bluetooth 


transmissions.  As  is  shown  in  figure  4.4  the  data  throughput  rate  remains  fairly  constant 
regardless  of  the  position  of  the  door.  This  was  the  case  for  all  tests. 


Four  Transmission  Tests  Using  the  DM3  Packet  Type 
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Figure  4.4:  Data  Throughput  vs.  Door  Position  for  DM3  Packet  Type.  (Error  bars  are  placed  at  ±  two 
standard  deviations  providing  a  certainty  of  95%) 

These  results  are  as  expected  because  the  hallway  imposes  minimal  attenuation  and  few,  if 
any,  packet  retransmissions  are  expected.  Also  of  note  is  the  fact  that  the  walls  in  Michelson 
are  sheet-rock  which  is  transparent  to  RF  energy,  therefore  the  door  position  essentially  had 
no  effect  on  the  Bluetooth  transmissions.  The  graphs  also  seem  to  show  that  larger  hie  sizes 
will  have  a  higher  transmission  rate,  ffowever,  after  further  analysis  this  conclusion  is  proved 
to  be  false. 


The  apparently  higher  transmission  rates  of  the  larger  packets  is  in  fact  due  to  some 
overhead  time  introduced  into  the  test  times  by  the  test  program  itself.  This  is  shown  by 
graphing  data  throughput  vs.  hie  size  (figure  4.5).  By  performing  a  linear  regression  on 
this  data  we  discovered  that  there  is  an  offset  in  the  ^/-direction  indicating  a  small  portion 


36 

of  overhead  common  to  all  four  file  sizes.  This  offset  also  implies  that  it  would  take  a  finite 
amount  of  time  to  transmit  a  zero-byte  file,  which  we  know  cannot  be  true,  since  in  practice 
we  simply  would  not  do  it. 


Figure  4.5:  One-way  Transmission  Time  vs.  File  Size 


Also,  calculations  prove  that  the  overhead  time  revealed  by  the  graph  is  not  the  overhead 
one  would  expect  from  packet  headers  and  UART  start  and  stop  bits.  We  will  use  the  500 
byte  hie  transmitted  in  using  DM3  baseband  packets  as  an  example. 

The  graph  in  figure  4.5  shows  a  70.2  ms  overhead.  Given  a  114.6  ms  one-way  total  trans¬ 
mission  time  we  can  compute  the  apparent  overhead  to  be  61.3%. 

Now  we  will  compare  this  value  to  the  expected  overhead.  First  the  hie  will  receive  a 
four-byte  L2CAP  header.  Next,  the  500  byte  hie  will  be  split  into  two  ACL  packets  based 
on  a  maximum  buffer  size  of  400  bytes.  Each  ACL  data  packet  has  a  hve  byte  header.  The 
total  header  size  is  now  14  bytes.  The  UART  will  add  a  start  and  a  stop  bit  to  each  byte 
that  is  transmitted,  therefore  the  total  number  of  overhead  bytes  is  given  by: 


^OH  2(7l(jata  T  ^header  )/8  T  ^header  (4.1) 

where  ndata  is  the  number  of  bytes  of  data  and  nheader  is  the  number  of  bytes  of  header 
information.  Applying  equation  (4.1)  to  the  500  byte  hie  gives  noH  =  128.5  bytes.  This 


gives  us  20.4%  expected  overhead  (%OH=  noH/(^data  +  uqh))- 
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When  this  value  is  compared  with  the  value  obtained  from  the  graph  in  figure  4.5  we  can 
see  that  they  are  not  even  close.  The  final  proof  that  the  overhead  value  obtained  from 
the  graph  represents  program  overhead  is  that  when  this  value  is  subtracted  from  the  total 
transmission  time  and  the  transmission  bit  rate  is  calculated  using  this  corrected  transmission 
time  we  find  that  the  calculated  bit  rate  is  approximately  equal  to  the  bit  rate  of  the  UART. 
(The  Bluetooth  bit  rate  will  not  be  obtained  because  the  UART  is  slower,  therefore  it  is  the 
limiting  factor  for  transmission  time.) 

R  =  —  OH  ndata) ;  where  R  is  the  bit  rate.  (4.2) 

Trans 

Applying  equation  (4.2)  to  the  example  and  using  the  corrected  transmission  time  as  ftrans 
we  get  R  =  113.2kbps.  This  value  is  within  1.5%  error  of  the  actual  UART  rate  (155.0  kbps). 
Therefore  the  overhead  time  revealed  by  the  graph  in  figure  4.5  is  test  program  overhead. 
The  source  of  this  overhead  is  most  likely  the  timeout  values  that  are  part  of  reading  and 
writing  data  to  the  computer’s  serial  data  port. 

When  the  program  overhead  is  taken  into  consideration  and  the  graph  from  figure  4.4  is 
regenerated  (figure  4.6)  it  can  be  seen  that  hie  size  does  not  affect  data  throughput  rates. 
The  apparent  deviations  of  the  500  byte  hie  may  be  due  to  the  resolution  of  the  timer  in  the 
test  program.  The  resolution  of  the  timer  is  one  millisecond  so  any  inaccuracy  in  timing  will 
have  a  much  greater  effect  on  results  for  the  smaller  hie  sizes. 

Once  the  existence  of  the  test  program  overhead  was  established,  several  values  for 
^program  oh  were  computed  using  linear  regressions  and  a  mean  value  of  fpr0gram  oh  =  70.0ms 
was  computed.  Knowing  this  we  calculated  standard  values  for  the  expected  transmission 
time  of  overhead  bytes  (£oh  bytes),  the  expected  transmission  time  of  data  bytes  (biata),  and 
the  expected  total  transmission  time  (brans)  for  each  hie  size.  These  standard  values  are 
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Data  Throughput  After  Correcting  for  Program  Overhead  DM3 
Packet  Type 
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Figure  4.6:  Data  Throughput  vs.  Topology  corrected,  showing  that  throughput  is  largely  independent  of  file 
size. 


One  Way  Tran  Times  (s) 


500  Byte 

Ik  Byte 

2.5k  Byte 

5k  Byte 

DH1 

0.1140 

0.1626 

0.3002 

0.5201 

DM3 

0.1146 

0.1575 

0.2957 

0.5164 

DH3 

0.1132 

0.1595 

0.3006 

0.5227 

DM5 

0.1148 

0.1584 

0.3021 

0.5231 

DH5 

0.1095 

0.1579 

0.3002 

0.5228 

Average 

0.1132 

0.1592 

0.2997 

0.5210 

sld 

0.0022 

0.0020 

0.0024 

0.0028 

%  Error 

3.81 

2.56 

1.61 

1.09 

t  OH  bytes 

0.0096 

0.0192 

0.0488 

0.0951 

f  data 

0,0336 

0.0700 

0.1810 

0,3559 

t  trans 

0.1132 

0.1592 

0,2997 

0.5210 

*  Error  based  on  two  standard  deviations  (95%  certainty) 


Figure  4.7:  Standard  transmission  times 

shown  in  figure  4.7,  The  values  were  then  used  as  a  reference  for  determining  the  percent 
overhead  due  to  packet  retransmissions  in  the  shipboard  tests,  assuming  that  the  hallway 
tests  experienced  few  or  no  packet  retransmissions.  This  assumption  is  reasonable  given  that 
the  calculated  bit  rate  was  within  1.5%  of  the  actual  bit  rate  for  these  tests. 


Knowing  the  overhead  associated  with  the  transmission  test  program  and  the  header  bytes 
of  each  file  size  it  is  possible  to  calculate  the  number  of  retransmitted  baseband  packets.  First 
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Type 

Payload 
Header 
( bytes) 

User 

Payload 

(bytes) 

FEC 

CRC 

Symmetric 
Max.  Rate 

(kb.'s) 

Asymme 

Rate 

Forward 

trie  Max. 
kb's) 

Reverse 

DM1 

i 

0-17 

2/3 

yes 

108.8 

108.8 

108.8 

DH1 

i 

0-27 

no 

yes 

172.8 

172.8 

172.8 

DM3 

2 

0-121 

213 

yes 

258.1 

387.2 

54.4 

DH3 

2 

0-183 

no 

yes 

390.4 

585.8 

86.4 

DM5 

2 

0-224 

213 

yes 

286.7 

477.8 

36.3 

DH5 

2 

0-239 

no 

yes 

433.9 

723.2 

57.6 

AUX1 

1 

0-29 

no 

no 

185.6 

185.8 

185.6 

Figure  4.8:  Properties  of  Baseband  Packets  [lj 


we  must  determine  the  number  of  packets  a  given  file  would  be  expected  to  occupy  (^theoretical) 
using  equation  (4.3). 


^theoretical 


^file 

^payload 


(4.3) 


where  rime  equals  the  number  of  bytes  in  the  hie  to  be  transmitted  and  npayioad  equals  the 
maximum  number  of  payload  bytes  of  the  baseband  packet  type  being  used  (figure  4.8). 
Then  using  the  data  from  figure  4.7  we  can  compute  the  actual  number  of  packets  used  to 
transmit  the  hie  (pactuai). 


Pactual 


^trans  ^program  OH  ^OH  bytes 


2 1 


time  slot 


(4.4) 


Equation  (4.4),  however,  is  limited  to  use  with  only  DM1  and  DH1  baseband  packet  types. 
The  number  of  packets  retransmitted  is  then  the  difference  between  ^theoretical  and  pactuai. 
The  results  of  these  calculations  are  shown  in  table  4.1. 


File  Size 

^theoretical 

factual 

Pretransmissions 

500 

30 

40 

10 

1000 

59 

73 

14 

2500 

148 

182 

34 

5000 

295 

355 

60 

Table  4.1:  Packet  Retransmissions  for  the  Hallway  Test  (DM1  Baseband  Packet) 
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Figure  4.9:  File  Size  vs.  Packet  Retransmissions  for  Hallway  Tests  (Error  bars  are  set  at  95%  certainty) 

It  can  be  seen  from  this  data  that  relatively  few  packet  retransmissions  were  required  in 
Michelson  Hall.  It  is  also  interesting  to  note  that  the  number  of  retransmitted  packets  seems 
to  increase  exponentially  as  the  size  of  the  transmitted  file  increases  (figure  4.9).  This  figure 
shows  an  exponential  regression  (dark  line)  plotted  on  top  of  actual  test  data  (light  line). 
The  equation  for  the  regression  function  is  shown  in  the  upper  right  corner  of  the  plot  along 
with  the  R2  value.  The  R2  value  represents  how  well  the  regression  fit  the  actual  data  points. 
The  closer  R2  is  to  1  the  better  regression  fits  the  actual  data. 

Hallway  tests  were  also  performed  using  a  piconet  topology  as  shown  in  figure  4.10,  The 
only  difference  between  this  topology  and  the  topology  shown  in  figure  4.3  is  the  addition 
of  a  third  node  to  the  left  of  the  door.  In  this  case  the  data  was  transmitted  from  the 
slave-transmitter  through  the  master  to  the  slave-receiver  and  finally  retransmitted  back  to 
the  slave-transmitter  through  the  master.  These  tests  provided  similar  results  as  the  point- 
to-point  tests.  Piconet  testing,  however,  was  not  carried  out  onboard  the  ex-USS  America 
due  to  bugs  in  the  test  program  at  the  time  the  shipboard  tests  were  being  carried  out. 
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Hallway  Test  Topology 
(Piconet) 


Figure  4.10:  Hallway  Piconet  Test  Topology 


Figure  4.11:  ex-USS  America  Tests 

4.2  Shipboard  Tests 

The  second  set  of  tests  was  completed  onboard  the  ex-USS  America ,  a  decommissioned 
aircraft  carrier  docked  at  the  naval  shipyard  in  Philadelphia.  Tests  were  conducted  in  an 
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open  aircraft  hangar  bay  onboard  the  ship.  The  Philadelphia  Naval  Shipyard  is  near  the 
Philadelphia  International  Airport,  and  it  may  well  be  that  the  radar  from  the  airport 
interfered  with  some  of  the  tests.  During  testing,  the  receive-signal-strength  indicator  in  the 
hangar  bay  was  very  erratic.  At  times  it  showed  receive-signal-strengths  greater  than  the 
transmission  power.  Directly  behind  the  area  of  the  hangar  bay  in  which  we  were  testing 
was  an  open  aircraft  elevator  in  direct  view  of  the  airport  radar.  Therefore,  we  concluded 
the  receive-signal-strength  indicator  was  of  no  practical  use  in  these  tests. 


4.2.1  Test  Setup 


ex-USS  America  Test  Topology 


ex-USS  America  Test  Topology 


Figure  4.12:  Shipboard  Topology 

Shipboard  testing  was  conducted  much  like  the  hallway  testing.  Tests  were  run  from  the 
hangar  bay  through  door  1-101-2  (left  side  of  figure  4.11  and  into  compartment  1-100-2-L 
(right  side  of  figure  4.11.  One  laptop  was  placed  inside  of  the  compartment  and  the  other 
was  placed  in  the  hangar  bay  offset  from  the  door.  Tests  were  conducted  with  the  laptop 
offset  on  both  the  right  and  left  side  of  the  door.  The  total  distance  between  the  transceivers 
was  5  m  and  the  topology  was  changed  by  varying  the  angle  of  the  door:  wide  open  (90°), 
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45°  open,  15°  open,  cracked  open  (approx.  1°),  closed  (0°),  and  door  dogged  (0°,  A  dogged 
door  is  closed  tightly  using  levers.). 

As  with  the  hallway  tests  the  Bluetooth  transceivers  were  attached  to  wooden  dowel  rods 
and  placed  in  retort  stands  to  reduce  interference  from  nearby  metal  objects.  Also,  as  with 
the  hallway  tests,  10  transmissions  of  each  hie  were  completed  for  each  test. 


4.2.2  Test  Results 


Figure  4.13:  Test  Results  for  DM3  Packet  Type.  (Error  bars  are  placed  at  ±  two  standard  deviations 
providing  a  certainty  of  95%) 


The  shipboard  tests  prove  that  wireless  data  transmission  through  a  closed  and  dogged 
door  is  possible,  though  a  significant  decrease  in  data  throughput  was  experienced.  A  range 
of  30-70%  overhead  due  to  packet  retransmissions  was  observed.  As  seen  in  figure  4.13,  the 
overhead  due  to  packet  retransmissions  was  substantial  but  not  completely  overwhelming. 
Data  were  still  successfully  transmitted  through  the  closed  and  dogged  doors. 
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Figure  4.14:  ENS  Estes’  Powernode 


It  is  of  note  that  the  intended  use  for  such  a  network  is  monitoring  and  control  systems 
and  not  hie  transfers.  These  applications  do  not  require  much  data  to  be  transferred.  The 
smallest  hie  size  used  in  tests  was  500  bytes.  Monitoring  and  control  data  do  not  usually 
require  nearly  that  much  data  to  be  transferred.  For  example  ENS  Estes  designed  and  built 
a  power  node  (figure  4.14,  a  device  used  to  simulate  shipboard  monitoring  and  controls). 
This  power  node  requires  only  one  byte  to  transfer  control  information  and  less  than  twenty 
bytes  to  transfer  monitoring  information.  Therefore,  the  data  throughput  rates  achieved  in 
the  shipboard  tests  would  be  acceptable  for  such  a  system. 


File  Size 

^theoretical 

factual 

Pretransmissions 

500 

30 

152 

122 

1000 

59 

308 

249 

2500 

148 

401 

253 

5000 

295 

809 

514 

Table  4.2:  Packet  Retransmissions  for  the  Hallway  Test  (DM1  Baseband  Packet) 


Packet  retransmission  data  was  calculated  for  the  a  test  run  using  DM1  baseband  packets 
and  the  closed  door  topology  (table  4.2).  As  was  the  case  with  the  hallway  tests,  the  number 
of  packet  retransmissions  seems  to  increase  exponentially  as  hie  size  is  increased  (figure  4.15). 
The  plot  on  the  right  was  obtained  by  excluding  the  1000  byte  hie,  which  had  a  great  deal 
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Figure  4.15:  File  Size  vs.  Packet  Retransmissions  for  Shipboard  Tests  (Error  bars  are  set  at  95%  certainty) 

of  error  associated  with  it.  By  excluding  the  data  from  this  file  the  exponential  increase 
in  packet  retransmissions  can  be  clearly  seen.  This  data  suggests  that  the  probability  of 
packet  retransmission  in  a  given  environment  is  similar  to  the  arrival  process  in  queuing 
theory|8j.  The  arrival  process  is  modeled  as  a  Poisson  process  where  the  arrival  of  data  is  an 
independent,  random  process.  Similarly  in  this  case  packet  retransmission  is  an  independent 
and  random  process  and  the  time  for  a  given  transmission  is  proportional  to  the  size  of  the 
hie  being  transmitted.  The  probability  distribution  for  such  a  process  is  given  by 

P arrival  (x)  =  Ae"**  (4.5) 

where  A  is  the  average  arrival  rate.  The  corresponding  cumulative  distribution  is  given  by [9j 

Fx(x)  =  1  -  e~Xx  (4.6) 

We  may  then  relate  the  expression  found  by  the  exponential  regression  of  our  test  data 
( f(x ))  in  figure  4.15  to  the  cumulative  distribution  function  for  packet  retransmissions 
(Fx(x))  by  the  equation 

f(x)  = 


1  -  Fx(x) 


(4.7) 


Solving  equation  (4.7)  for  Fx(x)  gives 
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Fx(x)  =  1~W)  (4'8) 

This  then  gives  us  the  desired  form  for  the  cumulative  distribution  function 

FxW  =  1  -  HoiiT6"”'719"  (4'9) 

However,  in  practical  use  this  expression  must  be  refined  by  further  testing.  In  order 
to  refine  this  expression  the  number  of  times  a  single  baseband  packet  is  retransmitted 
must  be  measured.  Our  testing  was  only  able  to  measure  the  total  number  of  baseband 
packet  retransmissions  in  the  transmission  of  an  entire  hie.  A  more  practical  version  of  this 
expression  would  be  to  determine  the  cumulative  distribution  function  for  the  number  of 
times  a  packet  is  dropped  due  to  the  vendor  specified  timeout  cause  by  excessive  packet 
retransmission. 

4.3  Test  Statistics 


Test 

500  Byte  File 

lk  Byte  File 

2.5k  Byte  File 

5k  Byte  File 

Hallway  Tests 

0/300 

0/300 

1/297 

0/296 

Shipboard  Tests 

0/422 

3/422* 

0/157 

1/157 

*  Two  of  the  three  errors  encountered  here  may  have  been  due  in  part  to  partially  discharged  batteries  in  the  laptop. 


Table  4.3:  Transmission  Failures  per  Attempted  Transmissions 


Several  of  the  tests  completed  onboard  the  ex-  USS  America  and  one  hallway  test  resulted 
in  the  test  program  timing  out.  The  cause  of  these  timeouts  is  insufficient  data  transferred 
(i.e.  a  byte  or  several  bytes  missing  from  the  transferred  data).  These  are  the  only  errors  ex¬ 
perienced  which  were  not  corrected  by  the  Bluetooth  error-detection-and-correction  schemes. 
Based  on  the  number  of  test  transmissions  attempted  the  number  of  failed  transmission  is 
relatively  low  (0.71%  for  the  lk  byte  hie  and  0.21%  overall). 
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Test 

Failed  Connections 

All  Hallway  Tests 

0  failed  of  60  attempts 

All  Shipboard  Tests 

13  failed  of  73  attempts 

Shipboard  Tests  w/  Door  Open  or  Cracked 

0  failed  of  48  attempts 

Shipboard  Tests  w/  Door  Closed  or  Dogged 

13  failed  of  25  attempts 

Table  4.4:  Number  of  Failed  Connections  per  Connection  Attempts 


Several  times  during  the  shipboard  testing  the  paging  process  timed  out  while  attempting 
to  establish  a  connection  between  the  two  Bluetooth  transceivers.  The  difficulty  creating 
connections  occurred  only  in  the  topologies  with  the  door  closed  or  dogged.  This  suggests 
that  though  data  transfer  through  the  door  in  the  closed  and  dogged  positions  is  possible, 
the  signal-to-noise  ratio  may  be  at  or  near  its  limit  in  these  two  topologies.  A  connection 
success  rate  of  82.2%  overall  and  only  48.0%  with  the  door  in  the  closed  and  dogged  positions 
is  not  very  encouraging,  given  that  the  network  must  be  capable  of  operating  in  the  extreme 
conditions  experienced  at  battle  stations,  during  which  all  watertight  doors  will  be  dogged. 
We  must  also  keep  in  mind,  however,  that  during  the  connection  establishment  process 
the  master  and  slave  are  not  using  the  same  frequency  hopping  sequence.  Therefore,  the 
difficulties  in  connection  establishment  do  not  indicate  problems  with  data  transfer.  After 
a  connection  is  established  both  slave  and  master  are  using  synchronized  frequency  hopping 
sequences  and  are  always  on  the  same  transmission  channel. 

One  possible  solution  to  this  problem  is  the  use  of  a  higher  power  Bluetooth  tranceiver. 
Our  tests  were  conducted  using  the  low-power  (lmW)  Bluetooth  transceiver.  Presumably 
the  higher  power  (lOOmW)  Bluetooth  transceiver  will  be  able  to  overcome  this  obstacle. 

Another  possible  solution  to  the  connection  problem  is  software  that  will  continually  at¬ 
tempt  to  establish  a  connection.  The  test  program  we  created  was  not  written  to  do  this. 


Chapter  5 


Conclusions 


The  goal  of  this  research  project  was  to  determine  the  feasibility  of  a  Bluetooth  wireless 
network  in  a  shipboard  environment.  Based  on  the  results  obtained  from  the  shipboard 
tests,  Bluetooth  wireless  transmission  is  feasible  through  closed  and  dogged  doors.  However, 
a  decrease  in  data  throughput  (30-70%  packet  retransmission  overhead)  was  experienced. 
Taking  into  consideration  the  fact  that  the  proposed  uses  for  a  Bluetooth  network  (shipboard 
montitoring  and  control  systems)  typically  require  very  little  data  transfer  the  decrease  in 
data  throughput  should  not  preclude  the  success  of  such  a  network.  Problems  may  arise, 
however,  clue  to  the  rate  of  failed  connections  when  the  door  is  in  the  closed  or  dogged 
position.  This  problem  itself  would  be  enough  to  disqualify  Bluetooth  from  use  onboard  naval 
vessels.  There  does  remain  the  possiblity  that  this  problem  could  be  solved  by  using  a  higher 
power  Bluetooth  transceiver  and  modifying  the  software  which  establishes  a  connection. 
Since  higher  power  devices  have  been  unavailable  to  us  thus  far,  more  tests  will  need  to  be 
conducted  to  demonstrate  this. 
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Chapter  6 


Future  Research 


The  possibility  and  usefulness  of  a  shipboard  Bluetooth  network  still  remains.  A  Blue¬ 
tooth  network  would  provide  ease  of  use  and  an  inexpensive  solution  to  the  implementation 
of  a  wireless  shipboard  monitoring  and  control  network.  This  project  answered  the  question 
of  the  possibility  of  data  transfer  through  a  closed  door,  but  also  gave  rise  to  the  question 
of  reliability  in  establishing  a  connection  through  closed  and  dogged  doors.  Further  research 
should  be  conducted  using  newer  versions  of  Bluetooth  hardware.  A  higher  power  transceiver 
will  be  available  soon  and  newer  versions  of  Bluetooth  will  implement  adaptive  frequency 
hopping  schemes.  [3J  Both  of  these  advances  will  have  a  favorable  impact  on  the  problem 
of  connection  establishment.  It  is  also  of  note  that  Bluetooth  is  still  in  infant  stages  of 
development.  The  Bluetooth  project  was  only  begun  by  Ericsson  in  1994,  the  Special  Inter¬ 
est  Group  was  not  created  until  2001 ,  [2J  and  Bluetooth  devices  have  only  recently  become 
available  to  the  consumer.  The  possibility  of  a  Bluetooth  shipboard  monitoring  and  control 
network  should  be  pursued  as  the  Bluetooth  technology  itself  develops. 
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Appendix  A 


Bluetooth  Include  Functions 


A.l  bluetooth. h 

//bluetooth.h 

//Written  on  190CT02  by  MIDN  Kenneth  J.  Hoover 
//Last  updated  02APR03 

//This  header  file  defines  the  Host  Controller  Interface  (HCI) 
//commands,  events,  error  codes,  and  UART  packet  headers  for 
//bluetooth  devices. 

// - 

#ifndef  bluetoothH 
#define  bluetoothH 


/***********************  COMMANDS  *****************************/ 
// - LINK  CONTROL  COMMANDS  OGF  0x01 - 


//Inquiry  Commands 

#def ine  HCI_INQUIRY  0x0401 

#def ine  HCI_INQUIRY_CANCEL  0x0402 

#def ine  HCI_PERI0DIC_INQUIRY_M0DE  0x0403 

#def ine  HCI_EXIT_PERI0DIC_INQUIRY_M0DE  0x0404 

//Connect  and  Disconnect  Commands 

#def ine  HCI_CREATE_C0NNECTI0N  0x0405 

#def ine  HCI.DISCONNECT  0x0406 

#def ine  HCI_ADD_SC0_C0NNECTI0N  0x0407 

#def ine  HCI_ACCEPT_C0NNECTI0N_REQUEST  0x0409 

#def ine  HCI_REJECT_C0NNECTI0N_REQUEST  0x040A 

#def ine  HCI_CHANGE_C0NNECTI0N_PACKET_TYPE  0x040F  //command  not  in  order 

//Security-related  Commands 

#def ine  HCI_LINK_KEY_REQUEST_REPLY  0x040B 

#def ine  HCI_LINK_KEY_REQUEST_NEGATIVE_REPLY  0x040C 

#def ine  HCI_PIN_CODE_REQUEST_REPLY  0x040D 

#def ine  HCI_PIN_CODE_REQUEST_NEGATIVE_REPLY  0x040E 

#def ine  HCI_AUTHENTICATION_REQUEST  0x0411 

#def ine  HCI_SET_C0NNECTI0N_ENCRYPTI0N  0x0413 

#def ine  HCI_CHANGE_C0NNECTI0N_LINK_KEY  0x0415 

#def ine  HCI_MASTER_LINK_KEY  0x0417 

//Remote  Device  Information  Commands 

#def ine  HCI_REM0TE_NAME_REQUEST  0x0419 


51 


#def ine  HCI_READ_REMQTE_SUPPORTED_FEATURES  0x041B 
#def ine  HCI_READ_REMOTE_VERSION_INFORMATION  0x041D 
#def ine  HCI_READ_CLOCK_OFFSET  0x041F 


// - LINK  POLICY  COMMANDS  OGF  0x02 


/ /Low-power  Mode  Commands 

#def ine  HCI_H0LD_M0DE  0x0801 

#def ine  HCI_SNIFF_M0DE  0x0803 

#def ine  HCI_EXIT_SNIFF_M0DE  0x0804 

#def ine  HCI_PARK_M0DE  0x0805 

#def ine  HCI_EXIT_PARK_M0DE  0x0806 

//Setup  and  Configuration  Commands 

#def ine  HCI_QoS_SETUP  0x0807 

#def ine  HCI_R0LE_DISC0VERY  0x0809 

#def ine  HCI_SWITCH_RQLE  0x080B 

#def ine  HCI_READ_LINK_POLICY_SETTINGS  0x080C 

#def ine  HCI_WRITE_LINK_POLICY_SETTINGS  0x080D 


// - HOST  CONTROLLER  k  BASBAND  COMMANDS  OGF  0x03 - 

//Setup  and  Configuration  Commands 
#def ine  HCI_SET_EVENT_MASK  OxOCOl 
#def ine  HCI_RESET  0x0C03 
#def ine  HC I _SET_EVENT_F I LTER  0x0C05 

#define  HCI_CHANGE_L0CAL_NAME  0x0C13  //command  not  in  order 

#define  HCI_READ_L0CAL_NAME  0x0C14  //command  not  in  order 

#define  HCI_READ_CLASS_0F_DEVICE  0x0C23  //command  not  in  order 

#define  HCI_WRITE_CLASS_OF_DEVICE  0x0C24  //command  not  in  order 

#define  HCI_READ_V0ICE_SETTING  0x0C25  //command  not  in  order 

#def ine  HCI_WRITE_V0ICE_SETTING  0x0C26  //command  not  in  order 

#def ine  HCI_READ_NUM_BR0ADCAST_RETRANSMISSI0NS  0x0C29  //command  not  in  order 

#def ine  HCI_WRITE_NUM_BR0ADCAST_RETRANSMISSI0NS  0x0C2A  //command  not  in  order 

//Security-related  Commands 

#def ine  HCI_READ_PIN_TYPE  0x0C09 

#def ine  HCI_WRITE_PIN_TYPE  OxOCOA 

#def ine  HCI_CREATE_NEW_UNIT_KEY  OxOCOB 

#def ine  HCI_READ_ST0RED_LINK_KEY  OxOCOD 

#def ine  HCI_WRITE_STORED_LINK_KEY  OxOCll 

#def ine  HCI_DELETE_STDRED_LINK_KEY  0x0C12 

#def ine  HCI_READ_AUTHENTICATION_ENABLE  OxOCIF  //command  not  in  order 
#def ine  HCI_WRITE_AUTHENTICATIQN_ENABLE  0x0C20  //command  not  in  order 
#def ine  HCI_READ_ENCRYPTI0N_M0DE  0x0C21  //command  not  in  order 
#def ine  HCI_WRITE_ENCRYPTI0N_M0DE  0x0C22  //command  not  in  order 
//Timeout  Commands 

#def ine  HCI_READ_C0NNECTI0N_ACCEPT_TIME0UT  0x0C15 
#def ine  HCI_WRITE_C0NNECTI0N_ACCEPT_TIME0UT  0x0C16 
#def ine  HCI_READ_PAGE_TIME0UT  0x0C17 
#def ine  HCI_WRITE_PAGE_TIME0UT  0x0C18 

#def ine  HCI_READ_AUTQMATIC_FLUSH_TIMEOUT  0x0C27  //command  not  in  order 
#def ine  HCI_WRTIE_AUTDMATIC_FLUSH_TIMEOUT  0x0C28  //command  not  in  order 
#def ine  HCI_READ_LINK_SUPERVISI0N_TIME0UT  0x0C36  //command  not  in  order 
#def ine  HCI_WRITE_LINK_SUPERVISI0N_TIME0UT  0x0C37  //command  not  in  order 
//Inquiry  and  Page  Scan  Commands 
#def ine  HCI_READ_SCAN_ENABLE  0x0C19 
#def ine  HCI_WRITE_SCAN_ENABLE  OxOCIA 
#def ine  HCI  READ  PAGE  SCAN  ACTIVITY  OxOClB 
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#def ine  HCI_WRITE_PAGE_SCAN_ACTIVITY  OxOCIC 
#def ine  HCI_READ_INQUIRY_SCAN_ACTIVITY  OxOCID 
#def ine  HCI_WRITE_INQUIRY_SCAN_ACTIVITY  OxOClE 

#define  HCI_READ_NUM_SUPPORTED_IAC  0x0C38  //command  not  in  order 
#define  HCI_READ_CURRENT_IAC_LAP  0x0C39  //command  not  in  order 
#define  HCI_WRITE_CURRENT_IAC_LAP  OxOC3A  //command  not  in  order 
#define  HCI_READ_PAGE_SCAN_PERIOD_MODE  OxOC3B  //command  not  in  order 
#def ine  HCI_WRITE_PAGE_SCAN_PERIOD_MODE  0x0C3C  //command  not  in  order 
#define  HCI_READ_PAGE_SCAN_MODE  0x0C3D  //command  not  in  order 
#define  HCI_WRITE_PAGE_SCAN_MODE  0x0C3E  //command  not  in  order 
/ /Low-power  Mode  Commands 
#def ine  HCI_READ_HOLD_MODE_ACTIVITY  0x0C2B 
#def ine  HCI_WRITE_HOLD_MODE_ACTIVITY  0x0C2C 
/ /Transmit  Power  Commands 

#def ine  HCI_READ_TRANSMIT_POWER_LEVEL  0x0C2D 
//Flow  Control  Commands 

#define  HCI_FLUSH  0x0C08  //command  not  in  order 

#def  ine  HCI_READ_SCO_FLOW_CONTROL_ENABLE  0x0C2E 

#def ine  HCI_WRITE_SCO_FLOW_CONTROL_ENABLE  0x0C2F 

#def  ine  HCI_SET_H0ST_C0NTR0LLER_T0_H0ST_FL0W_C0NTR0L  0x0C31 

#def ine  HCI_HOST_BUFFER_SIZE  0x0C33 

#def ine  HCI_HOST_NUM_COMPLETED_PACKETS  0x0C35 


// - INFORMATIONAL  PARAMETERS  OGF  0x04 - 

#def ine  HCI_READ_L0CAL_VERSI0N_INF0RMATI0N  0x1001 
#def ine  HCI_READ_L0CAL_SUPP0RTED_FEATURES  0x1003 
#def ine  HCI_READ_BUFFER_SIZE  0x1005 
#def ine  HCI_READ_C0UNTRY_C0DE  0x1007 
#def ine  HCI_READ_BD_ADDR  0x1009 


// - STATUS  PARAMETERS  OGF  0x05 - 

#def ine  HCI_READ_FAILED_C0NTACT_C0UNTER  0x1401 
#def ine  HCI_RESET_FAILED_C0NTACT_C0UNTER  0x1402 
#def ine  HCI_GET_LINK_QUALITY  0x1403 
#def ine  HCI_READ_RSSI  0x1405 


// - TESTING  COMMANDS  OGF  0x06 - 

#def ine  HCI_READ_L00PBACK_M0DE  0x1801 

#def ine  HCI_WRITE_L00PBACK_M0DE  0x1802 

#def ine  HCI_ENABLE_DEVICE_UNDER_TEST_M0DE  0x1803 

// - ERICSSON  SPECIFIC  HCI  COMMANDS  (R0K  101  008) 

#def ine  HCI_SET_UART_BAUD_RATE  0xFC09 

//This  command  has  one  parameter  one  byte  long 

//The  default  value  is  57.6kbps 

//9600bps  ->  10100 

//BAUD  RATES 

#def ine  BT_BR_9600  0x14 

#def ine  BT_BR_14400  0x05 

#def ine  BT_BR_57600  0x03 


#def ine  EV_INQUIRY_C0MPLETE  0x01 
#def ine  EV_INQUIRY_RESULT  0x02 
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#def ine  EV_CONNECTION_COMPLETE  0x03 
#def ine  EV_C0NNECTI0N_REQUEST  0x04 
#def ine  EV_DISC0NNECTI0N_C0MPLETE  0x05 
#def  ine  EV_AUTHENTICATION_COMPLETE  0x06 
#def  ine  EV_REMOTE_NAME_REQUEST_COMPLETE  0x07 
#def ine  EV_ENCRYPTION_CHANGE  0x08 

#def  ine  EV_CHANGE_CONNECTION_LINK_KEY_COMPLETE  0x09 

#def  ine  EV_MASTER_LINK_KEY_COMPLETE  0x0 A 

#def ine  EV_READ_REMOTE_SUPPORTED_FEATURES_COMPLETE  OxOB 

#def  ine  EV_READ_REM0TE_VERSI0N_INF0RMATIQN_C0MPLETE  OxOC 

#def ine  EV_QoS_SETUP_COMPLETE  OxOD 

#def ine  EV_C0MMAND_C0MPLETE  OxOE 

#def ine  EV_C0MMAND_STATUS  OxOF 

#def ine  EV_HARDWARE_ERROR  0x10 

#def ine  EV_FLUSH_OCCURRED  Oxll 

#def ine  EV_ROLE_CHANGE  0x12 

#def ine  EV_NUM_COMPLETED_PACKETS  0x13 

#def ine  EV_M0DE_CHANGE  0x14 

#def ine  EV_RETURN_LINK_KEYS  0x15 

#def ine  EV_PIN_C0DE_REQUEST  0x16 

#def ine  EV_LINK_KEY_REQUEST  0x17 

#def ine  EV_LINK_KEY_N0TIFICATI0N  0x18 

#def ine  EV_L00PBACK_C0MMAND  0x19 

#def ine  EV_DATA_BUFFER_0VERFL0W  OxlA 

#def ine  EV_MAX_SL0TS_CHANGE  OxlB 

#def ine  EV_READ_CL0CK_0FFSET_C0MPLETE  OxlC 

#def ine  EV_CONNECTION_PAKCKET_TYPE_CHANGED  OxlD 

#def ine  EV_QoS_VI0LATI0N  OxlE 

#def ine  EV_PAGE_SCAN_MODE_CHANGE  OxlF 

#def ine  EV_PAGE_SCAN_REPETITION_MODE_CHANGE  0x20 


/ ERROR  C ODES 


#def ine  ERR_UNKNOWN_HCI_COMMAND  0x01 

#def ine  ERR_N0_C0NNECTI0N  0x02 

#def ine  ERR_HARDWARE_FAILURE  0x03 

#def ine  ERR_PAGE_TIMEOUT  0x04 

#def ine  ERR_AUTHENTICATION_FAILURE  0x05 

#def ine  ERR_KEY_MISSING  0x06 

#def ine  ERR_MEMORY_FULL  0x07 

#def ine  ERR_CONNECTION_TIMEOUT  0x08 

#def ine  ERR_MAX_NUM_CONNECTIONS  0x09 

#def ine  ERR_MAX_NUM_SCO_CONNECTIONS_TO_A_DEVICE  OxOA 

#def ine  ERR_ACL_CONNECTION_ALREADY_EXISTS  OxOB 

#def ine  ERR_COMMAND_DISALLOWED  OxOC 

#def ine  ERR_HOST_REJECTED_DUE_TO_LIMITED_RESOURCES  OxOD 
#def ine  ERR_HOST_REJECTED_DUE_TO_SECURITY_REASONS  OxOE 

#def ine  ERR_HOST_REJECTED_DUE_TO_REMOTE_DEVICE_IS_ONLY_PERSONAL_DEVICE  OxOF 
#def ine  ERR_HOST_TIMEOUT  0x10 

#def ine  ERR_UNSUPPORTED_FEATURE_OR_PARAMETER_VALUE  Oxll 

#def ine  ERR_INVALID_HCI_COMMAND_PARAMETERS  0x12 

#def ine  ERR_OTHER_END_TERMINATED_CONNECTION_USER_ENDED  0x13 

#def ine  ERR_OTHER_END_TERMINATED_CONNECTION_LOW_RESOURCES  0x14 

#def ine  ERR_OTHER_END_TERMINATED_CONNECTION_PQWER_OFF  0x15 

#def ine  ERR_CONNECTION_TERMINATED_BY_LOCAL_HOST  0x16 

#def ine  ERR_REPEATED_ ATTEMPTS  0x17 

#def ine  ERR_PAIRING_NOT_ALLOWED  0x18 

#def ine  ERR_UNKNOWN_LMP_PDU  0x19 
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#def ine  ERR_UNSUPPORTED_REMOTE_FEATURE  Oxl A 

#def ine  ERR_SC0_0FFSET_REJECTED  OxlB 

#def ine  ERR_SCO_INTERVAL_REJECTED  OxlC 

#def ine  ERR_SCO_AIR_MODE_REJECTED  OxlD 

#def ine  ERR_INVALID_LMP_PARAMETERS  OxlE 

#def ine  ERR_UNSPECIFIED_ERROR  OxlF 

#def ine  ERR_UNSUPPORTED_LMP_PARAMETER_VALUE  0x20 

#def ine  ERR_ROLE_CHANGE_NOT_ALLOWED  0x21 

#def ine  ERR_LMP_RESPONSE_TIMEOUT  0x22 

#def ine  ERR_LMP_ERR0R_TRANSACTI0N_C0LLISI0N  0x23 

#def ine  ERR_LMP_PDU_NOT_ALLOWED  0x24 

#def ine  ERR_ENCRYPTION_MODE_NOT_ACCEPTABLE  0x25 

#def ine  ERR_UNIT_KEY_USED  0x26 

#def ine  ERR_QoS_NOT_SUPPORTED  0x27 

#def ine  ERR_INSTANT_PASSED  0x28 

#def ine  ERR_PAIRING_WITH_UNIT_KEY_NOT_SUPPORTED  0x29 


/***********************  UART  HEADERS  **************************/ 


#def ine  UART_HCI_COMMAND_PACKET  0x01 
#def ine  UART_ACL_DATA_PACKET  0x02 
#def ine  UART_SCO_DATA_PACKET  0x03 
#def ine  UART_EVENT_PACKET  0x04 


/************************  PARAMETERS  *********************************/ 


// -  PACKET  TYPES  - 

#def ine  DM1  0x0008 
#def ine  DH1  0x0010 
#def ine  DM3  0x0400 
#def ine  DH3  0x0800 
#def ine  DM5  0x4000 
#def ine  DH5  0x8000 

// - LINK  TYPES - 

#def ine  SC0_LINK  0x00 
#def ine  ACL_LINK  0x01 

// - GIAC  LAP - 

//(Generic  Inquiry  Access  Code  Lower  Address  Part)  from  BT  Spec 
#def ine  GIAC_LAP  0x9E8B33 

// -  DATA  PACKET  BOUND ARY/P2P  FLAGS  - 

//These  flags  representa  a  combination  of  a  P2P  BC  Flag  and 
//either  a  First  Packet  PB  Flag  or  a  continuing  packet  PB  Flag. 

#def ine  FIRST_PKT_P2P  0x20 
#def ine  C0NT_PKT_P2P  0x10 

// -  DATA  PACKET  BROADCAST  FLAGS  - 

#define  P2P  0x00 
#def ine  ACTIVE_BC  0x40 
#def ine  PIC0NET_BC  0x80 
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// -  EVENT  FILTER  TYPES  - 

#def ine  CLR_ALL_FILTERS  0x00 
#def ine  INQUIRY_RESULT  0x01 
#def ine  C0NNECTI0N_SETUP  0x02 

// - AUTO  ACCEPT  FLAG  VALUES - 

//Only  needed  for  CONNECTION  SETUP  FILTERS 

//Auto  Accept  off 
#def ine  AA_0FF  0x01 
//Auto  Accept  on 

#define  AA_ON_RS_DISABLED  0x02  //Role  switch  disabled 
#define  AA_ON_RS_ENABLED  0x03  //Role  switch  enabled 

// -  L2CAP  CID  (MSB)  CODES  - 

//These  L2CAP  CID  codes  are  arbitrary  codes  that  I  chose  to  use 
//for  this  project.  They  are  not  defined  in  the  BT  Spec 

#def ine  MESSAGE_MSB  0x03 
#def ine  TEST_DATA_MSB  OxEE 

// -  TRANSMISSION  TEST  TIMEOUT  CODES  - 

#def ine  TIME_0UT_L0CAL_C0MP  OxFFEE 
#def ine  TIME_0UT_REM0TE_C0MP  OxFFFF 

// - TRANSMISSION  TEST  FILE  SIZE  CODES - 

#def ine  RETRANSMIT  -1 

#def ine  LARGE_FILE  0 

#def ine  SMALL_FILE  1 

#def ine  CONTINUE_TRANSMISSION  2 

#endif 

A. 2  BT_functions.h 

/ /BT_f unctions .h 

//Written  on  230CT02  by  MIDN  Kenneth  J.  Hoover 
//Last  updated  03FEB03 

//This  header  file  contains  the  structures  and  function  prototypes  for 

//functions  used  in  creating  a  Bluetooth  application  or  sending  and  recieving  Bluetooth 
//HCI  commands  and  events  from  Bluetooth  Host  Controller. 

// - 

#ifndef  BT_functionsH 
#define  BT_functionsH 

#include  "bluetooth.h" 

#include  "UART.h" 

// - 

struct  BUFFERS  { 
int  sizeACLBuff; 
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char  sizeSCOBuff; 
int  numACLBuf  f ; 
int  numSCOBuff; 

};//end  struct 

struct  BT_DEVICE  { 
char  addrDisp  [15] ; 
unsigned  char  bd_addr  [6] ; 
char  pgScnRepMode ; 
char  pgScnPerMode ; 
char  pgScnMode ; 
char  deviceClass  [2] ; 
char  clkOf f set  [2] ; 
char  connectHndl  [2] ; 
char  linkType ; 
int  pktType ; 
char  encryptMode ; 
bool  master; 
bool  conductingTest ; 
bool  connection; 
short  rssi; 

//Initialization  and  default  values 

BT_DEVI CE ( char  cl=’0’,  char  c2=’x’,  char  c3=NULL){ 

addrDisp [0]  =  cl; 

addrDisp [1]  =  c2; 

addrDisp [14]  =  c3; 

master  =  false; 

conductingTest  =  false; 

connection  =  false; 

} 

};//end  struct 

// - 

/ / change  2  char ( ) : 

//This  function  convert  a  nibble  of  data  to  the  ASCII  equivilent  character 
//of  the  hexidecimal  digit  represented  by  the  nibble  of  data. 

// 

//Parameters  n:  should  contain  one  nibble  of  data  in  the  least  significant 
//  nibble  of  a  char  variable  type. 

// 

//Return:  ASCII  equivilent  character  of  a  hexidecimal  digit 
char  change 2 char (char  n) ; 

// - 

//nibbles  () : 

//This  function  separates  a  1  byte  char  variable  into  two  char’s  each  containing 
//one  nibble  of  the  data  contained  in  the  original  char  variable. 

// 

//Parameters  x:  data  to  be  separated  into  nibbles. 

//  msn:  most  significant  nibble. 

//  lsn:  least  significant  nibble. 

void  nibbles(char  x,  char  &msn,  char  &lsn) ; 


// 
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//FormatCommandO  : 

//This  function  sets  the  first  3  bytes  of  a  Bluetooth  HCI  command  packet  interfaced, 
//via  UART.  [UART  pkt  header] , [opcode  lsb] , [opcode  msb] 

// 

//Parameters  hciCmd:  Some  Bluetooth  HCI  command  as  defined  in  "bluetooth. h" 

//  pktHdr[] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

void  FormatCommand(int  hciCmd,  char  pktHdrG); 

// - 

//Int2Char() : 

//This  function  converts  an  integer  into  four  characters  by  saving  each  of  the 
//bytes  of  the  integer  in  an  array  of  four  characters.  This  is  usefull  when  an 
//integer  must  be  transmitted  in  a  Bluetooth  command  or  data  packet. 

// 

//Parameters  i:  Integer  to  convert  to  characters. 

//  ch[] :  4  byte  character  array  in  which  to  store  the  4  bytes 
//  of  the  integer.  The  bytes  of  the  integer  are  stored  in 
//  the  array  in  little  endian  format,  (i.e.  ch[0]  =  lsb. 

//  ch[3]  =  msb) 

void  Int2Char(int  i,  char  ch[]); 

// - 

//SetUartBaudRate () : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Set_UART_Baud_Rate .  This  command  changes  the  baud  rate  of  the  UART 
//connection  between  the  host  and  the  host  controller 
// 

//**N0TE: 

// 

//Parameters  BR:  New  UART  baud  rate. 

//  cmdPkt [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  SetUartBaudRate (char  BR,  char  cmdPkt  []) ; 

// - 

//ReadBD_ADDR() : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Read_BD_ADDR.  This  command  reads  the  Bluetooth  Device  Address  of  the 
//local  host  contoller. 

// 

//Parameters  cmdPkt  [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  ReadBD_ADDR(char  cmdPkt  [])  ; 


// 


//ReadBuf f erSize () : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Read_Buf f er_Size .  This  command  reads  the  buffer  size  of  the 
//local  host  contoller. 

// 

//Parameters  cmdPkt  [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  ReadBuf  f  erSize  (char  cmdPkt  [])  ; 

// - 

//HostBuff erSize  () : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Host_Buf f er_Size .  This  command  sends  the  host  controller  the  size  of 
//the  host’s  buffer  sizes. 

// 

//Parameters  *pHostBuff:  A  pointer  to  a  BUFFERS  structure  containing  the  size 
//  of  the  host’s  buffes. 

//  cmdPkt  [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  HostBuff erSize (BUFFERS  *pHostBuff,  char  cmdPkt []) ; 

// - 

//SetEventMaskQ  : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Set_Event_Mask .  This  command  allows  the  host  to  mask  off  certain  HCI 
//events.  If  an  event  is  masked  the  host  controller  will  not  create  that  event. 
// 

//Parameters  evMask:  Desired  event  mask. 

//  of  the  host’s  buffes. 

//  cmdPkt [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  SetEventMask(int  evMask,  char  cmdPkt  []) ; 

// - 

//WriteConnAcceptTimeout () : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Write_Connectin_Accept_Timeout .  This  command  sets  the  maximum  period  of 
//time  allowed  for  a  remote  device  to  respond  to  a  connection  request. 

// 

// 

//Parameters  TOInterval:  Timeout  interval  in  increments  of  625ms.  (i.e. 

//  timeout  =  TOInterval  *  625ms. 

//  Range  (0x0001  -  0xB540) 

//  cmdPkt [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 
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DWORD  WriteConnAcceptTimeout (int  TOInterval,  char  cmdPkt  [] ) ; 

// - 

//WritePageTimeout () : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Write_Page_Timeout .  This  command  sets  the  maximum  period  of 
//time  allowed  for  a  remote  device  to  respond  to  a  page. 

// 

// 

//Parameters  TOInterval:  Timeout  interval  in  increments  of  625ms.  (i.e. 

//  timeout  =  TOInterval  *  625ms. 

//  Range  (0x0001  -  OxFFFF) 

//  cmdPkt [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  WritePageTimeout (int  TOInterval,  char  cmdPkt []) ; 

// - 

//WriteLinkSupTimeout () : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Write_Link_Supervision_Timeout .  The  link  supervision  timeout  is  used 
//to  determine  link  loss.  If  no  baseband  packets  are  transmitted  for  the 
//duration  of  the  timeout  the  link  is  disconnected. 

// 

// 

//Parameters  connectHndl :  Connection  handle  to  an  ACL  or  SCO  link. 

//  TOInterval:  Timeout  interval  in  increments  of  625ms.  (i.e. 

//  timeout  =  TOInterval  *  625ms. 

//  Range  (0x0001  -  OxFFFF) 

//  cmdPkt  [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  WriteLinkSupTimeout (int  connectHndl,  int  TOInterval,  char  cmdPkt []) ; 

// - 

//ReadTxPowLevel () : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Read_Transmit_Power_Level .  Read  the  transmit  power  level  of  the  local 
//Bluetooth  Device. 

// 

// 

//Parameters  connectHndl:  Connection  handle  to  an  ACL  or  SCO  link. 

//  type:  0x00  -  Read  current  transmit  power  level. 

//  0x01  -  Read  maximum  transmit  power  level. 

//  cmdPkt [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  ReadTxPowLevel (char  connectHndl  [] ,  char  type,  char  cmdPkt []) ; 
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// - 

//ReadRSSI 0 : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Read_RSSI .  Read  the  receive  signal  strength  indicator  (RSSI)  of  the 
//local  Bluetooth  device. 

// 

// 

//Parameters  connectHndl :  Connection  handle  to  an  ACL  or  SCO  link. 

//  cmdPkt [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  ReadRSSI  (char  connectHndl  []  ,  char  cmdPkt  [])  ; 

// - 

/ /Reset ()  : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Reset.  Reset  the  local  Bluetooth  device. 

// 

// 

//Parameters  cmdPkt [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  Reset  (char  cmdPkt  [])  ; 

// - 

//Inquiry () : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Inquiry.  Conduct  an  inquiry  for  other  Bluetooth  devices. 

// 

// 

//Parameters  inquiryLength :  Maximum  amount  of  time  before  inquiry  is  halted 
//  Range  0x00-0x30.  Time  =  inquiryLength  *  1.28s 
//  maxNumRes:  Maximum  number  of  responses  to  inquiry  before  the 
//  inquiry  is  halted  OxOO-unlimited  responses 

//  cmdPkt  [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  Inquiry (char  inquiryLength,  char  maxNumRes,  char  cmdPkt []) ; 

// - 

//CreateConnectionO  : 

//This  function  creates  a  Bluetooth  HCI  command  packet  for  the  HCI  command 
//HCI_Create_Connection.  Create  a  Bluetooth  connection. 

// 

// 

//Parameters  *device:  Pointer  to  the  BT_DEVICE  structure  containing 
//  information  about  the  device  witch  which  to  create 
//  a  connection. 

//  pktType:  Designates  the  baseband  packet  type  to  be  used  within 


//  the  connection  (DM1  DH1  DM3  DH3  DM5  or  DH5) 

//  cmdPkt  [] :  The  array  in  which  the  command  packet  will  be  stored 
//  until  it  is  transmitted. 

// 

//Return:  Packet  size  in  bytes. 

DWORD  CreateConnection(BT_DEVICE  *device,  int  pktType,  char  cmdPkt []) ; 

// - 

DWORD  WriteScanEnable (char  scanEnable,  char  cmdPkt  []) ; 

// - 

DWORD  AcceptConnectRqst (BT_DEVICE  ^device,  char  cmdPkD); 

// - 

DWORD  SendACLPkt (char  connectHndl [] ,  DWORD  dataLength,  char  flags,  char  dataPkt [] ) ; 

// - 

DWORD  WriteVoiceSetting(int  voiceSetting,  char  cmdPkt []) ; 

// - 

DWORD  WriteAuthEnable (char  enable,  char  cmdPkt []) ; 

// - 

DWORD  SetEventFilter (char  filterType,  char  autoAcceptFlag,  char  cmdPkt  []) ; 

// - 

DWORD  Disconnect (char  connHndl[2],  char  reason,  char  cmdPkt []) ; 

// - 

AnsiString  Error(char  err); 

// - 

#endif 


A. 3  BT  functions. cpp 

/ /BT_f unctions . cpp 

//Written  on  230CT02  by  MIDN  Kenneth  J.  Hoover 
//Last  updated  15N0V02 

//This  file  contains  the  function  definitions  for  functions  used  in 
//creating  a  Bluetooth  application  or  sending  and  recieving  Bluetooth 
//HCI  commands  and  events  from  Bluetooth  Host  Controller. 

// - 


#include  "BT_f unctions .h 
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// - 

char  change 2 char (char  n){ 

if  (n  >=  10)  //if  n  is  greater  than  9  n  is  the  hex  digit  A-F. 
return  (n+55) ;  //ascii  code  65-70  represents  letters  A-F. 
else 

return  (n+48) ;  //ascii  code  48-57  represents  numerals  0-9. 

} 

// - 

void  nibbles(char  x,  char  &msn,  char  &lsn){ 

msn  =  x  »  4;  //right  shift  the  bits  4  places  msn  =  most  sig  nibble 
msn  =  msn  &  OxOF ;  //mask  off  the  unused  bits 
lsn  =  x  &  OxOF ; 

msn  =  change2char (msn) ;  //convert  each  nibble  to  a  the  ascii  code 
lsn  =  change2char (lsn) ;  //hex  digit  for  display 
> 

// - 

void  FormatCommand(int  hciCmd,  char  pktHdr  []){ 
int  temp  =  0; 

unsigned  int  mask  =  OxOOOOOOFF ; 

pktHdr  [0]  =  UART_HCI_C0MMAND_PACKET ;  //add  UART  command  packet  header  byte  0 

temp  =  hciCmd  &  mask;  //mask  hci_cmd  so  only  lsbyte  is  present 
pktHdr [1]  =  static_cast<char> (temp) ;  //convert  to  an  8  bit  char 

temp  =  (hciCmd>>8)  &  mask;  //mask  and  shift  hci_cmd  so  only  msbyte  is  present 
pktHdr  [2]  =  static_cast<char> (temp) ;  //convert  to  an  8  bit  char 
} 

// - 

void  Int2Char(int  i,  char  ch[]){ 
int  temp  =  0; 

unsigned  int  mask  =  OxOOOOOOFF; 

for  (int  n=0;  n<4;  n++){  //loop  through  all  4  bytes  of  the  int  variable 

temp  =  (i»n*8)  &  mask;  //shift  int  and  mask  as  needed  8*byte  number(n)  bits 

ch[n]  =  static_cast<char>(temp) ;  //convert  to  char  and  return  array  of  up  to  4  chars 

}//end  for 

} 

// - 

DWORD  SetUartBaudRate (char  BR,  char  cmdPkt  []){ 

DWORD  pktSize  =  5; 

FormatCommand(HCI_SET_UART_BAUD_RATE,  cmdPkt) ;  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x01;  //lengeth  of  parameters  1  byte 
cmdPkt  [4]  =  BR;  //Baud  Rate  parameter 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 
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// - 

DWORD  Re adBD_ ADDR (char  cmdPkt  []  ){ 

DWORD  pktSize  =  4; 

FormatCommand(HCI_READ_BD_ADDR,  cmdPkt) ;  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x00;  // lengeth  of  parameters  0  bytes 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 

// - 

DWORD  ReadBufferSize(char  cmdPkt  []){ 

DWORD  pktSize  =  4; 

FormatCommand(HCI_READ_BUFFER_SIZE,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x00;  //lengeth  of  parameters  0  bytes 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 

// - 

DWORD  HostBuf f erSize (BUFFERS  *pHostBuff,  char  cmdPkt  []){ 

DWORD  pktSize  =  11; 
char  temp  [4]  ; 

FormatCommand(HCI_HOST_BUFFER_SIZE,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt [3]  =  0x07 ;  //lengeth  of  parameters  7  bytes 

//Add  buffer  size  data  to  command  packet  array 

Int2Char (pHostBuf f->sizeACLBuf f ,  temp) ; 

cmdPkt  [4]  =  temp  [0]  ; 

cmdPkt  [5]  =  temp  [1]  ; 

cmdPkt  [6]  =  pHostBuf f->sizeSC0Buff ; 

Int2Char (pHostBuf f->numACLBuff ,  temp) ; 
cmdPkt  [7]  =  temp[0]; 
cmdPkt  [8]  =  temp  [1]  ; 

Int2Char (pHostBuf f->numSC0Buff ,  temp) ; 
cmdPkt  [9]  =  temp  [0]  ; 
cmdPkt  [10]  =  temp[l]; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 

// - 

DWORD  SetEventMask(int  evMask,  char  cmdPkt  []){ 

DWORD  pktSize  =  12; 
char  temp  [4]  ; 

FormatCommand(HCI_SET_EVENT_MASK,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x08;  //lengeth  of  parameters  8  bytes 
Int2Char (evMask,  temp); 

for  (int  n=0;  n<4;  n++)  //set  remaining  4  bytes  of  event  mask 
cmdPkt  [n+8]  =  temp  [n]  ; 

for  (int  n=0;  n<4;  n++)  //the  most  sig  4  bytes  of  the  event  mask  are  reserved 
cmdPkt  [n+4]  =  0x00;  //so  set  those  bytes  to  0 
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return  pktSize;  //return  total  packet  size  (in  bytes) 

} 

// - 

DWORD  WriteConnAcceptTimeout (int  TOInterval,  char  cmdPkt[]){ 

DWORD  pktSize  =  6; 
char  temp  [4]  ; 

FormatCommand(HCI_WRITE_CONNECTION_ACCEPT_TIMEOUT,  cmdPkt) ;  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x02;  //lengeth  of  parameters  2  bytes 
Int2Char (TOInterval,  temp); 

cmdPkt  [4]  =  temp[0];  //add  timout  interval  parameters  to  cmd  pkt  array 
cmdPkt  [5]  =  temp  [1]  ; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 

// - 

DWORD  WritePageTimeout (int  TOInterval,  char  cmdPkt  []){ 

DWORD  pktSize  =  6; 
char  temp  [4]  ; 

FormatCommand(HCI_WRITE_PAGE_TIMEOUT,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x02;  //lengeth  of  parameters  2  bytes 
Int2Char (TOInterval,  temp); 

cmdPkt  [4]  =  temp[0];  //add  timout  interval  parameters  to  cmd  pkt  array 
cmdPkt  [5]  =  temp  [1]  ; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 

// - 

DWORD  WriteLinkSupTimeout (BT_DEVICE  *pDevice,  int  TOInterval,  char  cmdPkt  []){ 

DWORD  pktSize  =  8; 
char  temp  [4]  ; 

FormatCommand(HCI_WRITE_LINK_SUPERVISION_TIMEOUT,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x04;  //lengeth  of  parameters  4  bytes 

//Add  connection  handle  and  timout  interval  to  cmd  pkt  array 
cmdPkt  [4]  =  pDevice->connectHndl [0] ; 
cmdPkt [5]  =  pDevice->connectHndl [1] ; 

Int2Char (TOInterval,  temp); 
cmdPkt  [6]  =  temp  [0]  ; 
cmdPkt  [7]  =  temp[l]; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 

// - 

DWORD  ReadTxPowLevel(char  connectHndl  []  ,  char  type,  char  cmdPkt[]){ 

DWORD  pktSize  =  7 ; 


FormatCommand(HCI_READ_TRANSMIT_POWER_LEVEL ,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 


cmdPkt  [3]  =  0x03;  //lengeth  of  parameters  3  bytes 

//Add  parameter  to  cmd  pkt  array 
cmdPkt  [4]  =  connectHndl  [0]  ; 
cmdPkt [5]  =  connectHndl [1] ; 
cmdPkt [6]  =  type ; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 

// - 

DWORD  ReadRSSI  (char  connectHndl  []  ,  char  cmdPkt  []){ 

DWORD  pktSize  =  6; 

FormatCommand(HCI_READ_RSSI ,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x02;  //lengeth  of  parameters  2  bytes 

//Add  parameters  to  cmd  pkt  array 
cmdPkt [4]  =  connectHndl [0] ; 
cmdPkt [5]  =  connectHndl [1] ; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 

// - 

DWORD  Reset  (char  cmdPkt  []){ 

DWORD  pktSize  =  4; 

FormatCommand(HCI_RESET,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x00;  //lengeth  of  parameters  0  bytes 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 

// - 

DWORD  Inquiry (char  inquiryLength,  char  maxNumRes,  char  cmdPkt  []){ 

DWORD  pktSize  =  9; 

FormatCommand(HCI_INQUIRY,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt [3]  =  0x05;  //lengeth  of  parameters  5  bytes 

//LAP  for  GIAC  is  0x9E8B33  so  set  that  as  LAP 
cmdPkt  [4]  =  0x33 ; 
cmdPkt [5]  =  0x8B ; 
cmdPkt  [6]  =  0x9E; 

//Add  parameters  to  cmd  pkt  array 

cmdPkt[7]  =  inquiryLength;  //Durration  of  inquiry  ( inquiryLength* 1 . 28s) 

//inquiryLength  ranges  from  0x01  to  0x30  (0-61. 44s) 

cmdPkt  [8]  =  maxNumRes;  //maxNumRes  ranges  from  0x01  to  OxFF. 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 
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DWORD  CreateConnection(BT_DEVICE  *pDevice,  int  pktType,  char  cmdPkt[]){ 

DWORD  pktSize  =  17 ; 
char  temp  [4]  ; 

FormatCommand(HCI_CREATE_CONNECTION,  cmdPkt) ;  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  OxOD;  //lengeth  of  parameters  13  bytes 

//add  BD_ADDR  to  cmd  pkt 

for  (int  n  =  0;  n<6;  n++) 

cmdPkt  [n+4]  =  pDevice->bd_addr [n] ; 

//add  pkt  type  to  cmd  pkt 
Int2Char (pktType,  temp); 
cmdPkt  [10]  =  temp[0]; 
cmdPkt[ll]  =  temp[l]; 

cmdPkt  [12]  =  pDevice->pgScnRepMode ; 
cmdPkt  [13]  =  pDevice->pgScnMode ; 

//add  clock  offeset  to  cmd  pkt 
cmdPkt [14]  =  pDevice->clkOf f set [0] ; 
cmdPkt [15]  =  pDevice->clkOf f set [1] ; 

cmdPkt  [16]  =  0x00;  //do  not  allow  role  switch 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 

// - 

DWORD  WriteScanEnable (char  scanEnable,  char  cmdPkt  []){ 

DWORD  pktSize  =  5; 

FormatCommand(HCI_WRITE_SCAN_ENABLE,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x01;  //lengeth  of  parameters  0  bytes 

cmdPkt [4]  =  scanEnable;  //0x00  no  scans;  0x01  inquiry  sen  only;  0x02  pg  sen  only; 

//0x03  all  scans  enabled. 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 

// - 

DWORD  AcceptConnectRqst (BT_DEVICE  *pDevice,  char  cmdPkt  []){ 

DWORD  pktSize  =  11; 

FormatCommand(HCI_ACCEPT_C0NNECTI0N_REQUEST,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x07 ;  //lengeth  of  parameters  7  bytes 

for  (int  n  =  0;  n<6;  n++) 
cmdPkt [n+4]  =  pDevice->bd_addr [n] ; 

cmdPkt  [10]  =  0x01;  //do  not  perform  a  master-slave  switch 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 


// 
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DWORD  SendACLPkt  (char  connectHndl  []  ,  DWORD  dataLength,  char  flags,  char  dataPkt[]){ 

DWORD  pktSize ; 
char  tempChar,  tempAry[4]; 
const  int  headerSize  =  5; 
const  char  cnctHndlMsk  =  OxOF ; 

pktSize  =  headerSize  +  dataLength; 

//Shift  data  back  5  spaces  in  the  array  to  make  room  for  the  header 
for  (unsigned  int  n=l;  n<=dataLength;  n++){ 

tempChar  =  dataPkt [dataLength  -  n] ;  //Move  all  array  elements  beginning  with  the  last  element 
dataPkt [dataLength  +  (headerSize  -  n)]  =  tempChar;  //back  5  spaces. 

}//end  for 

//Adding  ACL  header  to  data  pkt 

dataPkt [0]  =  UART_ACL_DATA_PACKET ;  //UART  header 

dataPkt[l]  =  connectHndl [0] ;  //Connection  Handle  is  12  bits  +  2  bits  for  each 

dataPkt [2]  =  (connectHndl [1]  &  cnctHndlMsk)  +  flags; //pkt  boundary  flag  and  broadcast  flag 


Int2Char (dataLength,  tempAry) ;  //Convert  int  into  2  separate  characters 
dataPkt  [3]  =  tempAry[0];  //for  data  transmission 
dataPkt  [4]  =  tempAry[l]; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 

// - 

DWORD  WriteVoiceSetting(int  voiceSetting,  char  cmdPkt[]){ 

DWORD  pktSize  =  6; 
char  temp  [4]  ; 

FormatCommand(HCI_WRITE_VOICE_SETTING,  cmdPkt) ;  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x02;  //lengeth  of  parameters  2  bytes 

//Add  parameters  to  cmd  pkt  array 
Int2Char (voiceSetting,  temp); 
cmdPkt  [4]  =  temp  [0]  ; 
cmdPkt  [5]  =  temp  [1]  ; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

} 

// - 

DWORD  WriteAuthEnable (char  enable,  char  cmdPkt  []){ 

DWORD  pktSize  =  5; 

FormatCommand(HCI_WRITE_AUTHENTICATION_ENABLE,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt  [3]  =  0x01;  //lengeth  of  parameters  1  byte 

//Add  parameters  to  cmd  pkt  array 
cmdPkt  [4]  =  enable ; 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 


// 
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DWORD  SetEventFilter (char  filterType,  char  autoAcceptFlag,  char  cmdPkt  []){ 

DWORD  pktSize ; 

FormatCommand(HCI_SET_EVENT_FILTER,  cmdPkt) ;  //sets  the  first  3  bytes  of  the  cmd  pkt 

//What  filter  is  being  set? 
switch  (f ilterType){ 

case  CLR_ALL_FILTERS : 

//Only  filterType  parameter  needed. 
pktSize  =  5; 

cmdPkt  [3]  =  0x01;  //lengeth  of  parameters  1  byte 

//Add  parameters  to  cmd  pkt  array 

cmdPkt [4]  =  filterType; 

break; 

case  INQUIRY_RESULT : 

// 2  parameters  required:  filterType  and  filter  condition  type 
pktSize  =  6; 

cmdPkt  [3]  =  0x02;  //length  of  parameters  2  bytes 

//Add  parameters  to  cmd  pkt  array 
cmdPkt [4]  =  filterType; 

cmdPkt [5]  =  0x00;  //Always  set  Inquiry  filter  condtion  type  to  0x00 
//(A  new  device  responded  to  the  Inquiry  process.) 
break; 

case  C0NNECTI0N_SETUP : 

//3  parameters  required:  filterType,  filter  condition  type,  and 
//auto  accept  flag. 
pktSize  =  7 ; 

cmdPkt  [3]  =  0x03;  //length  of  parameters  3  bytes 

//Add  parameters  to  cmd  pkt  array 
cmdPkt [4]  =  filterType; 

cmdPkt  [5]  =  0x00;  //Always  set  Inquiry  filter  condtion  type  to  0x00 
//(Allow  Connections  from  all  devices.) 
cmdPkt  [6]  =  autoAcceptFlag; 
break; 

}//end  switch 

return  pktSize;  //return  total  packet  size  (in  bytes) 

> 

// - 

DWORD  Disconnect  (char  connHndl[2],  char  reason,  char  cmdPkt[]){ 

DWORD  pktSize  =  7 ; 

FormatCommand(HCI_DISCONNECT,  cmdPkt);  //sets  the  first  3  bytes  of  the  cmd  pkt 
cmdPkt [3]  =  0x03;  //lengeth  of  parameters  3  byte 

//Add  parameters  to  cmd  pkt  array 

cmdPkt  [4]  =  connHndl[0];  //Connection  handle  of 

cmdPkt  [5]  =  connHndl[l];  //the  connection  to  disconnect 


//Reason  for  disconnect  0x13  =  user  ended  connection  0x15  =  about  to  power  off 


cmdPkt [6]  =  reason; 
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return  pktSize;  //return  total  packet  size  (in  bytes) 

> 

// - 

AnsiString  Error(char  err){ 

//Search  for  the  error  code  and  return  the 
//corresponding  error  message  to  be  displayed 
switch(err) { 

case  ERR_UNKNOWN_HCI_COMMAND : 
return  "ERROR:  Unknown  HCI  Command"; 

case  ERR_N0_C0NNECTI0N : 
return  "ERROR:  No  Connection"; 

case  ERR_HARDWARE_FAILURE : 
return  "ERROR:  Hardware  Failure"; 

case  ERR_PAGE_TIMEOUT : 
return  "Page  Timeout"; 

case  ERR_MEMORY_FULL : 
return  "ERROR:  Memory  Full"; 

case  ERR_ACL_CONNECTION_ALREADY_EXISTS : 
return  "ERROR:  ACL  Connection  Already  Exists"; 

case  ERR_COMMAND_DISALLOWED : 
return  "ERROR:  Command  Disallowed"; 

case  ERR_UNSUPPORTED_FEATURE_OR_PARAMETER_VALUE : 
return  "ERROR:  Unsupported  Feature  or  Parameter  Value"; 

case  ERR_INVALID_HCI_COMMAND_PARAMETERS : 
return  "ERROR:  Invalid  HCI  Command  Parameters"; 

default : 

return  "Unknown  Error" ; 

}//end  swtich 

} 


// 


Appendix  B 


BTTest  v.  1.1 


B.l  BTTestl  l.h 

//BTTestl_l.h 

//Written  on  19QCT02  by  MIDN  Kenneth  J.  Hoover 
//Last  updated  02APR03 
// 

//This  header  file  defines  forms  and  variables  and  contains  function 
//prototyes  for  the  BTTest  program. 

// - 

#ifndef  BTCommH 
#define  BTCommH 

// - 

#include  <Classes .hpp> 

#include  <Controls .hpp> 

#include  <StdCtrls .hpp> 

#include  <Forms.hpp> 

#include  "BT_f unctions .h" 

# include  "UART.h" 

#include  <ExtCtrls .hpp> 

#include  <Menus.hpp> 

#include  "transTest .h" 

DWORD  BaudRateG  =  -[CBR_9600,  CBR_14400,  CBR_57600,  CBR_115200>; 

const  DWORD  testDataBuf f Size  =  100100,  inBuffSize  =  100100,  outBuffSize  =  600;//595  bytes  usable  (5  byte  header  for 
C0MMTIME0UTS  CT1,  CTinit ; 

BT_DEVICE  slave [7],  localDevice; 

BUFFERS  host,  hostCtrl; 
unsigned  long  pktSize; 

bool  readRssi  =  true,  transmitlnProgress  =  false; 

DCB  myDCB,  initDCB; 

//DATA  VARIABLES 

char  inBuff [inBuffSize] ,  outBuff [outBuffSize] ,  testDataBuf f  [testDataBuf f Size] ; 

TransTest  cTest; 
unsigned  int  numTestTrans ; 

// - 

class  TBT_net  :  public  TForm{ 
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_ published:  //  IDE-managed  Components 

TTimer  *Timerl; 

TGroupBox  *GroupBoxl ; 

TGroupBox  *GroupBox2 ; 

TGroupBox  *GroupBox3 ; 

//STATIC  LABELS 

TLabel  *Labell; 

TLabel  *Label2; 

TLabel  *Label3; 

TLabel  *Label4; 

TLabel  *Label5; 

TLabel  *Label9; 

TLabel  *Labell3; 

TLabel  *Label6; 

//DYNAMIC  LABELS 

TLabel  *LBD_ADDR_rd;  //BT_ADDR  for  remote  device 
TLabel  *LBD_ADDR_ld;  //BT_ADDR  for  local  device 
TLabel  *LLinkType; 

TLabel  *LConnectHndl ; 

TLabel  *LInqRes ; 

TLabel  *LRSSI; 

TLabel  *LRx; 

TLabel  *LTestStatus ; 

TLabel  *LStatusl; 

TLabel  *LStatus2; 

//INPUT  BOX 
TLabeledEdit  *Message; 

//BUTTONS 

TButton  *BBeginTest; 

TButton  *BSend; 

TButton  *BReset; 

TButton  *BConnect ; 

TButton  *BInquiry; 

//C0MB0B0XES 

TComboBox  *CBDist; 

TComboBox  *CBTopology; 

TComboBox  *CBControl; 

TComboBox  *CBTestRole; 

TComboBox  *CBPktType; 

TComboBox  *CBNumTrans; 

TLabel  *LabellO; 

TLabel  *Labelll; 

TLabel  *LCurTrans; 

TLabel  *LPktNum; 

TLabel  *LStatus3; 

void  fastcall  FormCreate(TObject  *Sender) ; 

void  fastcall  FormDestroy(TObject  *Sender) ; 


//TIMER  INTERUPT 

void  _ fastcall  TimerlTimer(TObject  *Sender) ; 


//BUTTON  CLICKS 


void 

_ fastcall 

void 

_ fastcall 

void 

_ fastcall 

void 

_ fastcall 

void 

_ fastcall 

//C0MB0B0XES 

CLOSE 

void 

_ fastcall 

void 

_ fastcall 

void 

_ fastcall 

void 

_ fastcall 

BInquiryClick(TObject  *Sender) ; 
BBeginTestClick(TObject  *Sender) ; 
BSendClick(TObject  *Sender) ; 
BResetClick(TObject  *Sender) ; 
BConnectClick(TObject  *Sender) ; 


CBControlCloseUp(TObject  *Sender) ; 
CBPktTypeCloseUp(TObject  *Sender) ; 
CBTestRoleCloseUp(TObject  *Sender) ; 
CBNumTransCloseUp(TObject  *Sender) ; 


private:  //  User  declarations 
public:  //  User  declarations 


_ fastcall  TBT_net (TComponent*  Owner); 

}; 


// - 

//*****  FUNCTIONS  ***** 

/ /FindOpCode : 

//This  function  looks  up  the  OpCode  returned  in  a  Command  Complete  or 
//Command  Status  event  packet  and  processes  the  data  contained  within 
//the  event  packet  accordingly. 

// 

//Parameters  *pBuf f :  Pointer  to  the  first  byte  in  the  returned 
/ /  event  packet 

void  FindOpCode (char  *pBuff); 

// - 

//Find  Event: 

//This  function  looks  up  Event  retruned  in  an  event  packet  and  processes  the 
//data  contained  within  the  event  packet  accordingly 
// 

//Parameters  *pBuff :  Pointer  to  the  first  byte  in  the  returned 
/ /  event  packet 

void  FindEvent (char  *pBuff); 

// - 

/ /ResetBuf f er : 

//This  function  resets  an  array  of  characters  to  NULL 

// 

//Parameters  buff[]:  Buffer  to  reset. 

//  buff Size:  Size  of  the  buffer  to  reset. 

void  ResetBuffer (char  buf f  [] ,  DWORD  buffSize) ; 

// - 


/ /NumDataPkts : 
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//This  function  is  used  to  determine  the  number  of  Bluetooth  HCI  pakcets 
//contained  in  a  string  of  characters.  It  also  determines  if  all  of  the 
//packets  are  complete  or  if  a  packet  was  segmented  during  the  read. 

// 

//Parameters  buff[]:  Buffer  in  which  the  data  is  contained. 

//  numBytesRead:  Number  of  bytes  contained  in  the  buffer 
//  &numPkts:  Address  of  an  integer  which  contains  the 
//  number  of  data  packets  contained  in  the 
//  buffer. 

//  *pLastPkt :  Pointer  to  the  first  byte  of  the  last  packet 
//  contained  in  the  buffer. 

//  &dataError:  Returns  true  if  data  is  incomplete 

// 

//Return:  (bool)  True  if  a  the  buffer  contains  a  segmented  packet. 

bool  NumDataPkts (char  buf  f  []  ,  DWORD  numBytesRead,  DWORD  &numPkts,  char  *pLastPkt ,  bool  MataError)  ; 

// - 

/ /TransmitTestData: 

//This  function  prepares  and  transmits  or  retransmits  the  test  data. 

// 

//Parameters  fileSize:  SMALL_FILE  -  Send  small  file 

//  LARGE_FILE  -  Send  large  file 

//  RETRANSMIT  -  Retransmit  received  data 

//  CONTINUE_TRANSMISSION  -  Continue  with  a 

//  transmission  that  is  currently  in  progress 

//  tDataSize:  Size  of  test  data  received,  (only  used  when 

//  retransmitting  data) 

void  TransmitTestData(int  fileSize,  unsigned  int  tDataSize); 

// - 

//ResetDisplayO  : 

//This  function  resets  the  labels  and  controls  on  the  Graphical  User  Interface, 
void  ResetDisplayO; 

// - 

//ClearStatus () : 

//This  function  resets  the  Status  labels  on  the  Graphical  User  Interface, 
void  ClearStatus () ; 

// - 

//DisconnectingO  : 

//This  function  resets  the  Status  labels  and  other  labels  related  to  an  ACL 
//connection  on  the  Graphical  User  Interface. 

void  DisconnectingO  ; 

// - 


#define  CLEAR  0x0000 


extern  PACKAGE  TBT_net  *BT_net ; 

// - 

#endif 
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B.2  BTTestl_l.cpp 

/ /BTTestl_l . cpp 

//Written  on  240CT02  by  MIDN  Kenneth  J.  Hoover 
//Last  updated  02APR03 
// 

//This  program  sets  up  and  creates  a  Bluetooth  wireless  link  through  which 
//data  is  sent  via  a  virtual  serial  link  between  two  computers,  each  running 
//this  program.  It  then  runs  a  test  program  used  to  test  data  transmision  times 
//between  a  single  master  and  slave  using  two  differnt  size  text  files.  This 
//program  is  written  for  use  with  the  Ericsson  RQK  101  008  Bluetooth  baseband 
//controller  and  tranciever. 

// - 

#include  <vcl . h> 

#pragma  hdrstop 

# include  "BTTestl_l .h" 

// - 

#pragma  package (smart_init) 

#pragma  resource  "*.dfm" 

TBT_net  *BT_net ; 


// - 

_ fastcall  TBT_net : : TBT_net (TComponent*  Owner) 

:  TForm( Owner) 

{ 

} 

// - 

void  _ fastcall  TBT_net : : FormCreate(TObject  *Sender){ 

//INITIALIZATION  OF  THE  SERIAL  PORT  (COMM  1) 

Cl  =  CreateFile (Port [0] ,  GENERIC_READ  I  GENERIC_WRITE ,  0,  NULL,  0PEN_EXISTING, 
FILE_FLAG_0VERLAPPED ,  NULL); 

GetCommState(Cl ,  feinitDCB) ;  //Save  inital  DCB  in  order  to  reset  Comm  1  on  exit  of  program 
myDCB  =  initDCB;  //Initailize  myDCB  to  current  Comm  Port  settings 
myDCB.BaudRate  =  BaudRate[3]; 
myDCB . f Binary  =  TRUE; 

myDCB . f Parity  =  FALSE;  //No  parity  check 

myDCB . fOutxCtsFlow  =  TRUE;  //should  be  true  ******** 

myDCB . fOutxDsrFlow  =  FALSE; 

myDCB. fDtrControl  =  DTR_C0NTR0L_DISABLE ; 

myDCB . fDsrSensitivity  =  FALSE; 

myDCB. fOutX  =  FALSE; 

myDCB . f InX  =  FALSE; 

myDCB. f Null  =  FALSE; 


//should  be  toggle  ***** 


myDCB . fRtsControl  =  RTS_C0NTR0L_T0GGLE; 
myDCB.ByteSize  =  8; 
myDCB. Parity  =  NOPARITY; 
myDCB . StopBits  =  ONESTOPBIT; 

SetCommState(Cl ,  fanyDCB) ; 

//COMM  TIMEOUTS 
GetCommTimeouts (Cl ,  &CT1) ; 

GetCommTimeouts (Cl ,  feCTinit) ; 

CT1  =  CTinit;  //Initialize  CT1  to  current  comm  timeout  settings. 

CT1 . ReadlntervalTimeout  =  10;  //Timeout  on  read  if  delay  is  greater  than  100ms 
//between  chars . 

CT1 .ReadTotalTimeoutMultiplier  =  0;  //Timeout  on  read  if  total  read  time  is  greater 
CT1 .ReadTotalTimeoutConstant  =  50;  //than  200ms 
SetCommTimeouts (Cl ,&CT1) ; 

//INITIALIZE  BT  MODULE 
pktSize  =  Reset (outBuff ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//INITIALIZE  DATA  VARIABLES 

ResetBuffer (inBuff ,  inBuf fSize) ; 

host . sizeACLBuf f  =  400; 

host . sizeSCOBuf f  =  400; 

host . numACLBuf f  =  1; 

host .numSCOBuff  =  1; 

//GUI  SETUP 
ResetDisplay () ; 

} 

// - 

void  _ fastcall  TBT_net : : FormDestroy (TObject  *Sender){ 

//RESET  COMM  STATES  BEFORE  CLOSING  PROGRAM 
SetCommState(Cl ,  ftinitDCB) ; 

SetCommTimeouts (Cl ,  &CTinit) ; 

CloseHandle (&C1) ; 

} 

// - 

void  _ fastcall  TBT_net :: Timer ITimer (TObject  *Sender){ 

//******  VARIABLES  ****** 

// - Buffer  Variables - 

DWORD  numBytesRead,  numPkts  =  0; 
char  *pPkt  =  inBuff ,  *pLastPkt  =  inBuff ; 
static  char  *pReadPt  =  inBuff; 
static  unsigned  int  buff Avail  =  inBuf fSize; 

// -  Packet  and  Data  Control  Variables 

bool  segmentedPkt  =  false; 

unsigned  int  pktSize,  mask  =  OxOOOOOOFF,  amtProcData  =  0; 
static  unsigned  int  segSize  =  0; 


// 


RSSI  Variables 
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static  unsigned  int  cycle  =  0; 
const  unsigned  int  rssiFreq  =  12; 

// -  Display  Variables  - 

char  dataDisp [255]  =  {NULL}; 

// -  Temporary  Variables  - 

char  tempAry[450]  =  {0}; 
unsigned  int  tempi,  temp2; 

//********  TRANSMISSION  TEST  VARIABLES  ********* 
static  unsigned  int  testDataReceived  =  0,  numTestsRan  =  0; 
static  unsigned  int  12capPktSize ,  storedL2capData  =  0; 
short  fileType; 

unsigned  int  n;  //loop  control  variable 
char  aclFlags ,  flagMask  =  OxFO; 

Timer  cTimer; 
char  bytesOf Int  [4] ; 

unsigned  int  processedPkts  =  0,  curProcPkts  =  0,  t_proc  =  0,  errors  =  0; 

DWORD  newBytesRead  =  0,  loopLimit  =  200,  loopCount  =  0; 
bool  timeOut  =  false; 

//  DETERMINE  IF  DATA  HAS  ARRIVED  AND  PROCESS  IT 

Timerl->Enabled  =  false ; //Disable  timer  while  processing  data 

ReadFile(Cl,  pReadPt ,  buffAvail,  &numBytesRead,  &0VL) ; //read  data  from  COMM  1 

if (numBytesRead  !=  0  ){  //If  data  is  present  ...  If  not  end. 
numBytesRead  =  numBytesRead  +  segSize; 

segmentedPkt  =  NumDataPkts (inBuf f ,  numBytesRead,  numPkts,  pLastPkt ,  timeOut);  //Does  a  partial  packet  exist  in  the 
for(unsigned  int  p=0;  pCnumPkts;  p++){  //Process  data  from  all  available  data  packets 
switch(*pPkt) {  //switch  UART  header 
case  UART_EVENT_PACKET : 

//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  &  mask)  +  3; 

FindEvent (pPkt) ; 
break; 

case  UART_ACL_DATA_PACKET : 

ClearStatus () ; 

LStatusl->Caption  =  "Data  Received" ; 

//The  4th  and  5th  bytes  in  an  ACL  pkt  give  the  total 
//length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//to  compute  total  packet  size. 

tempi  =  (static_cast<unsigned  int> (* (pPkt+3) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+4) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 
pktSize  =  temp2  +  tempi  +  5; 

LStatus2->Caption  =  pktSize; 
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//  CHECK  THE  MOST  SIGNIFICANT  BYTE  OF  THE  L2CAP  CHANNEL  ID 
//  THIS  BYTE  TELLS  WHAT  TYPE  OF  DATA  IS  BEING  RECIEVED : 

//  TEST  DATA  OR  MESSAGE  DATA.  TEST  DATA  MUST  BE  PROCESSED 
//  AND  RETRANSMITTED,  BUT  MESSAGE  DATA  IS  DISPLAYED  TO  THE 
//  USER  AND  THEN  DISCARDED. 

//  IF  THE  ACL  FLAGS  INDICATE  A  CONTINUING  PACKET  THE  PAKCET  MUST 
//  TRANSMISSION  TEST  DATA.  SINCE  CONTINUING  PACKETS  DO  NOT 
//  CONTAIN  L2CAP  HEADER  INFORMATION  THE  12capCIDmsb  VARIABLE 
//  MUST  BE  MANUALLY  SET  TO  TEST_DATA_MSB . 

switch  (*(pPkt+8)){  //Switch  L2CAP  CID  msb 


case  MESSAGE_MSB : 


//###########  ACL  Data  Display  for  ONLY  one  BT  Slave  ############ 
for (unsigned  int  n=9;  n<pktSize;  n++) 

dataDisp  [n-9]  =  *(pPkt+n);  //Move  data  from  data  pkt  to  a  string  for  display 
dataDisp [pktSize-9]  =  NULL;  //Add  a  null  char  to  end  for  string  output 
LRx->Caption  =  dataDisp; 
break; 


case  TEST_DATA_MSB : 

//IF  EXECUTION  REACHES  THIS  POINT  AT  LEAST  ONE  COMPLETE  PKT  EXISTS 

IF  TEST  DATA  IS  BEING  RECIEVED  EXECUTION  WILL  REMAIN  IN  THIS  LOOP  UNTIL  THE  WHOLE 
TEST  DATA  FILE  HAS  BEEN  READ  INTO  THE  INPUT  BUFFER.  DURING  EACH  ITERATION  THE  DATA 
READ  WILL  BE  COUNTED  AND  COMPARED  TO  THE  TOTAL  SIZE  OF  THE  PAKCET.  IT  WILL  ALSO  BE 
FOR  OTHER  TYPES  OF  DATA  WHICH  MAY  BE  MIXED  IN  AND  STORE  THAT  DATA  SEPARATELY.  ONCE 
THE  COMPLETE  FILE  IS  READ  THE  DATA  WILL  BE  PROCESSED.  THIS  WHOLE  PROCESS  WILL  BE 
TIMED  AND  RETURNED  TO  THE  TESTING  DEVICE  AS  Tproc  (PROCESSING  TIME) . 


do{  //  continue  loop  until  the  complete  test  file  has  been  read 

for(curProcPkts=processedPkts;  curProcPkts<numPkts ;  curProcPkts++){//loop  through  all  counted  data  pkts 
ClearStatus () ; 

LStatusl->Caption  =  "Receiving  Test  Data" ; 

//The  4th  and  5th  bytes  in  an  ACL  pkt  give  the  total 
//length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//to  compute  total  packet  size. 

tempi  =  (static_cast<unsigned  int> (* (pPkt+3) ) )  &  mask; //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+4) ) )  &  mask; //into  an  int  variable. 
temp2  =  temp2  «  8; 
pktSize  =  temp2  +  tempi  +  5; 

//*  IS  THIS  THE  FIRST  ACL  PACKET  OF  A  LARGE  L2CAP  PACKET?  * 
aclFlags  =  (*(pPkt+2)  &  flagMask);//  Extract  ACL  flags 

switch(aclFlags) { 
case  FIRST_PKT_P2P : 

//YES  THIS  IS  THE  FIRST  OF  MANY 


79 


//Subtract  9  bytes  from  the  total  pkt  size 
//5  bytes  for  the  ACL  pkt  header  and  4  bytes 
//for  the  L2CAP  pkt  header. 
testDataReceived  =  pktSize  -  5  -  4; 

//Find  L2CAP  Pkt  Size 

tempi  =  (static_cast<unsigned  int> (* (pPkt+5) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+6) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 

12capPktSize  =  tempi  +  temp2;  //Size  of  exptected  12cap  pkt 

LStatus2->Caption  =  "L2CAP  Packet  Size:"; 

LStatus3->Caption  =  12capPktSize ; 
break; 

case  C0NT_PKT_P2P : 

//NO  THIS  IS  A  CONTINUING  PACKET  TO  ADD  TO  A  PREVIOUSLY 
//RECIEVED  L2CAP  FRAGMENT. 

//Subtract  only  the  5  bytes  for  the  ACL  pkt  header. 
testDataReceived  =  testDataReceived  +  pktSize  -  5; 
break; 


default : 

LTestStatus->Caption  =  "Unknown  ACL  Data  Packet  Flags"; 

if(*pPkt  ==  UART_EVENT_PACKET){//if  an  event  packet  was  recieved  store  it  for  processing  later 
//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

ClearStatus () ; 

LStatusl->Caption  =  "Event  Received  During  Test"; 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  &  mask)  +  3; 

FindEvent (pPkt) ; 

}//end  if 


}//end  switch  aclFlags 

//Finished  with  present  packet .. .move  pointer  to  next  data  packet 

pPkt  =  pPkt  +  pktSize; 

amtProcData  =  amtProcData  +  pktSize; 

pktSize  =  0; 


}//end  for 


LPktNum->Caption  =  curProcPkts; 


processedPkts  =  numPkts;  //  update  the  number  of  processed  packets 
//WILL  THERE  BE  MORE  DATA  COMING? 

if (testDataReceived  <  12capPktSize){//more  data  is  coming 
do{ 

//If  there  is  a  segmented  packet  compute  the  amount  of  data  that  does  exist 
if (segmentedPkt) 

segSize  =  numBytesRead  -  amtProcData; 
else{ 

segSize  =  0; 

LStatus2->Caption  =  "  " ; 

}//end  else 


pReadPt  =  inBuff  +  amtProcData  +  segSize;  //move  the  read  point  to  the  end  of  the  data  in  the  buffer 
buff Avail  =  inBuff Size  -  amtProcData;  //How  much  of  the  buffer  is  still  free 
ReadFile(Cl,  pReadPt,  buffAvail,  fenewBytesRead,  &0VL) ;  //read  data  from  COMM  1 
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//****  DEBUGING  CODE  *** 
if (newBytesRead  ==  0){ 
loopCount++; 

if (loopCount  ==  loopLimit) 
timeOut  =  true; 

BT_net->LTestStatus->Caption  =  "Waiting  for  data.  No  Bytes  Read"; 

}//end  if 

else{ 

newBytesRead  =  newBytesRead  +  segSize;  //Add  segment  size  to  newBytesRead  so  that  a  complete  packet  is  sent  to  NumE 
segmentedPkt  =  NumDataPkts (pPkt ,  newBytesRead,  numPkts,  pLastPkt,  timeOut);  //Does  a  partial  packet  exist  in  th 

numBytesRead  =  numBytesRead  +  newBytesRead  -  segSize;  //add  the  new  bytes  read  to  the  number  of  bytes  already  in  th 
numPkts  =  numPkts  +  processedPkts ;  //add  the  new  number  of  packets  to  the  number  of  packets  already  in  the  buffer 
}//end  else 

}while (segmentedPkt  kk  ItimeOut);  //continue  loop  until  a  segmented  pkt  no  longer  exists 
}//end  if  more  data  is  coming 

}while ( (testDataReceived<12capPktSize)  kk  ItimeOut);  //Continue  loop  until  the  whole  Test  file  (L2CAP 
//pkt)  is  recieved  or  a  timeout  occurs. 

//****************************  PROCESS  RECIEVED  TEST  DATA  *************************************** 

if  (testDataReceived  ==  12capPktSize  I  I  timeOut) { 

//NO  MORE  DATA  IS  COMING  OR  A  TIMEOUT  HAS  OCCURED 

pPkt  =  inBuff ; //reset  the  pkt  pointer  to  point  to  the  beginning  of  the  data 

while(*pPkt  ==  UART_EVENT_PACKET){//make  sure  that  the  pointer  is  pointing  to  the  first  ACL  pkt 
//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  k  mask)  +  3; 
pPkt  =  pPkt  +  pktSize; 

}//end  while  (pPkt  ==  UART_EVENT_P ACKET ) 

if (localDevice . conductingTest){ 

//LOCAL  DEVICE  IS  CONDUCTING  THE  TEST 

//Stop  Timer.  The  LSB  of  the  L2CAP  CID  contains  a 
//0  for  a  small  file  and  a  1  for  a  large  file. 
fileType  =  static_cast<short> (* (pPkt+7) ) ; 

//Read  the  processing  time  used  by  the  other  computer  (1st  and  2nd  data  bytes  in  the  test  data  pkt) 
tempi  =  (static_cast<unsigned  int> (* (pPkt+9) ) )  k  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+10) ) )  k  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 

t_proc  =  tempi  +  temp2;  //Processing  time  used  on  remote  computer 

if(t_proc  ==  TIME_0UT_REM0TE_C0MP) {  //A  timeout  occured  on  remote  computer 

LTestStatus->Caption  =  "Timeout  occured  on  remote  computer"; 

cTest . endReceive (fileType ,  t_proc,  errors);  //end  test 

}//end  if 

else  { 

if (timeOut) {  //A  timeout  occured  on  this  computer 

LTestStatus->Caption  =  "Timeout  occured  on  this  computer"; 

cTest . endReceive (fileType ,  TIME_0UT_L0CAL_C0MP ,  errors);  //end  test 

}//end  if 

else-( 


cTimer . startTimer  () ; 
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//STORE  RECIEVED  DATA 
storedL2capData  =  0; 

for (unsigned  int  b=0;  bCnumPkts;  b++){  //loop  through  all  packets  and  save  them  for  retransmission 
while(*pPkt  ==  UART_EVENT_PACKET) {  //make  sure  that  the  pointer  is  pointing  to  the  first  ACL  pkt 
//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  &  mask)  +  3; 
pPkt  =  pPkt  +  pktSize; 

}//end  while  (pPkt  ==  UART_EVENT_P ACKET ) 

//The  4th  and  5th  bytes  in  an  ACL  pkt  give  the  total 
//length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//to  compute  total  packet  size. 

tempi  =  (static_cast<unsigned  int> (* (pPkt+3) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+4) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 
pktSize  =  temp2  +  tempi  +  5; 

//STORE  THIS  DATA 

for  (n=0;  n<pktSize-5;  n++) 

testDataBuff [n+storedL2capData]  =  *(pPkt+n+5); 

storedL2capData  =  storedL2capData  +  pktSize  -  5;  //Account  for  ACL  pkt  header 
pPkt  =  pPkt  +  pktSize; 

}//end  for 

//ALL  DATA  HAS  BEEN  SAVED.. RESET  pPkt  and  pktSize 
pPkt  =  inBuff ; 
pktSize  =  0; 

//CHECK  FOR  ERRORS 

for (unsigned  int  k=6;  k<12capPktSize+4;  k++){  //Begin  k  @  6  to  account  for  L2CAP  pkt  header  and  t_proc  bytes 
if (cTest . dataLong [k]  !=  testDataBuff  [k] )  //If  the  saved  test  data  does  not 
errors++;  //equal  the  transmitted  data  then  an 
}//end  for  //error  occured. 

t_proc  =  t_proc  +  static_cast<unsigned  int>(cTimer . stopTimer () *1000) ; 

cTest . endReceive (fileType ,  static_cast<float>(t_proc)/1000,  errors);  //end  this  test 

}//end  else 

}//end  else 

numTestsRan++ ; 

LCurTrans->Caption  =  numTestsRan; 

//IF  MORE  TESTS  NEED  TO  BE  RUN. . . 

//TRANSMIT  MORE  DATA 
if  (numTestsRan  <  numTestTrans) { 

TransmitTestData(f ileType ,  0); 

LTestStatus->Caption  =  "Transmit  next  pkt"; 

}//end  if 
else! 

readRssi  =  true; 
numTestsRan  =  0; 

LTestStatus->Caption  =  "Finished!"; 

MessageBox(0 ,  "Test  Finished",  0,  MB_0K) ; 


}//end  else 
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}//end  if  local  device  conducting  test 
else{ 

//LOCAL  DEVICE  IS  NOT  CONDUCTING  THE  TEST 
cTimer . startTimer () ; 

storedL2capData  =  0; 

for(unsigned  int  b=0;  b<numPkts;  b++){  //loop  through  all  packets  and  save  them  for  retransmission 
while  (*pPkt  ==  UART_EVENT_PACKET) {  //make  sure  that  the  pointer  is  pointing  to  the  first  ACL  pkt 
//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  &  mask)  +  3; 
pPkt  =  pPkt  +  pktSize; 

}//end  while  (pPkt  ==  UART_EVENT_P ACKET ) 

//The  4th  and  5th  bytes  in  an  ACL  pkt  give  the  total 
//length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//to  compute  total  packet  size. 

tempi  =  (static_cast<unsigned  int> (* (pPkt+3) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+4) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 
pktSize  =  temp2  +  tempi  +  5; 

//STORE  THIS  DATA 

for  (n=0;  n<pktSize-5;  n++) 

testDataBuff [n+storedL2capData]  =  *(pPkt+n+5); 

storedL2capData  =  storedL2capData  +  pktSize  -  5;  //Account  for  ACL  pkt  header 
pPkt  =  pPkt  +  pktSize; 

if (timeOut)  //If  a  timeout  has  occured  only  store  1st  ACL  pkt 
b  =  numPkt  s ; 

}//end  for 

//ALL  DATA  HAS  BEEN  PROCESSED .. RESET  pPkt  and  pktSize 
pPkt  =  inBuff ; 
pktSize  =  0; 

if (timeOut)  //If  a  timeout  has  occured  set  t_proc  to  OxFFFF 

t_proc  =  TIME_0UT_REM0TE_C0MP ; 

else{ 

//convert  the  float  (seconds)  value  to  an  unsigned  int  (milliseconds)  value  for  transmission 
t_proc  =  static_cast<unsigned  int>  (cTimer .  stopTimerO  *1000)  ; 

}//end  else 

Int2Char (t_proc ,  bytesOflnt); 

testDataBuff  [4]  =  bytesOflnt  [0] ;  //The  first  4  bytes  of  the  test  data  are  the  L2CAP  header 
testDataBuff [5]  =  bytesOflnt  [1] ;  //store  the  value  of  t_proc  in  bytes  5  and  6. 

/ /Retransmit 

if (timeOut)  //Let  the  transmit  test  function  know  if  a  timeout  occured 

TransmitTestData (RETRANSMIT,  2); 

else 

TransmitTestData (RETRANSMIT,  12capPktSize) ; 

}//end  else  local  device  is  not  conducting  the  test 

//RESET  VARIABLES 
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testDataReceived  =  0; 

12capPktSize  =  0; 
numPkt  s  =  0 ; 
timeOut  =  false; 

}//end  if  (testDataReceived  ==  12capPktSize) 
else-( 

//SOMETHING  SCREWED  UP 

LTestStatus->Caption  =  "SOMETHING  SCREWED  UP:  Too  much  data  received"; 

}//end  else  someting  screwed  up 

break; 


default : 

LTestStatus->Caption  =  "Unknown  L2CAP  CID"; 

}//end  switch  L2CAP  CID  msb 
}//end  switch  UART  header 

//Finished  with  present  packet .. .move  pointer  to  next  data  packet 

pPkt  =  pPkt  +  pktSize; 

amtProcData  =  amtProcData  +  pktSize; 

pktSize  =  0; 

}//end  for 

//  IF  A  SEGMENTED  DATA  PACKET  EXISTS  MOVE  EXISTING  DATA 
//  TO  THE  BEGINING  OF  THE  BUFFER  AND  SET  THE  READ  POINT 
//  AT  THE  END  OF  THE  PARTIAL  DATA 

if (segmentedPkt) {  //The  last  packet  read  was  not  complete 
segSize  =  numBytesRead  -  amtProcData; 

for(unsigned  int  c=0;  c<segSize;  C++)  //Temporarily  store  incomplete  pkt 
tempAry[c]  =  * (pLastPkt+c) ; 

ResetBuffer (inBuff ,  inBuf fSize) ;  //Reset  inBuff 

for(unsigned  int  c=0;  c<segSize;  C++)  //Place  incomplete  pkt  in  the  front 
inBuf f  [c]  =  tempAry[c];  //of  inBuff 

pReadPt  =  inBuff  +  segSize;  //Set  the  Read  Point  pointer  to  the  end  of  the  incomplete  pkt 
buffAvail  =  inBuffSize  -  segSize;  //Adjust  the  buffer  size  to  reflect  the  portion  used 
//by  the  incomplete  pkt.  (Needed  for  reading  from  COM  1) 

}//end  if  segmentedPkt 

else{  //Last  packet  was  complete 
ResetBuffer (inBuff ,  inBuffSize);  //Reset  inBuff 
pReadPt  =  inBuff;  //Reset  Read  Point  pointer 
buffAvail  =  inBuffSize;  //Reset  available  buffer  size. 
segSize  =  0; 

}//end  else 

}//end  if  data  is  present 


//  IF  A  CONNECTION  EXISTS  READ  AND  RECEIVE  SIGNAL 
//  STRENGTH  (RSSI)  FOR  THE  EXISTING  LINKS. 

//###############  THIS  CODE  MUST  BE  EDITED  FOR  USE  WITH  MORE  THAN  2  DEVICES 
//RSSI 

if (readRssi&&( ! segmentedPkt) ) { 

if (slave [0] . connection  &&  localDevice . conductingTest) { 


if  (cycle'/, rssiFreq  ==  0){ 

pktSize  =  ReadRSSI (slave [0] . connectHndl ,  outBuff ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}  //end  if 
cycle++ ; 

}//end  if 

}//end  if  readRssi 

Timerl->Enabled  =  true;//Data  processing  complete .. .re-enable  timer 

} 

// - 

void  FindOpCode(char  *pBuff){ 

//*******  VARIABLES  ******* 

// -  Control  Variables 

unsigned  int  opCode,  mask  =  OxOOOOOOFF ; 

static  bool  inquiryFilter ;  //Used  to  determine  which  filter  needs  to  be  set 
// (connection  or  inquiry)  for  each  call  to  setEventFilter 

// -  Display  Variables  - 

char  opCodeDisp [7]  =  {’0’,’x’},  tempOpCode [4] ; 
unsigned  int  x; 

// -  Temporary  Varialbes  - 

unsigned  int  tempi,  temp2; 

//  FIND  THE  OPCODE  AND  STORE  IT  IN  AN  INTEGER  VARIABLE 
//  FOR  USE  IN  A  SWITCH  STATEMENT.  THE  OPCODE  IS  CONTAINED 
//  IN  A  DIFFERENT  PART  OF  THE  EVENT  PACKET  FOR  A  COMMAND  COMPLETE 
//  EVENT  AND  A  COMMAND  STATUS  EVENT. 

if  (* (pBuf f +1)  ==  EV_COMMAND_COMPLETE) { 

tempi  =  static_cast<unsigned  int> (* (pBuf f +4) )  &  mask;  //mask  out  all  unwanted 
temp2  =  static_cast<unsigned  int> (* (pBuf f +5) )  &  mask;  //bytes. 
temp2  =  temp2«8;  //shift  the  msbyte  to  its  position 

opCode  =  tempi  +  temp2;  //combine  the  two  bytes  into  one  integer  variable 
]-//end  if 

if  (* (pBuf f +1)  ==  EV_COMMAND_STATUS ) { 

tempi  =  static_cast<unsigned  int>(* (pBuf f +5) )  &  mask;  //mask  out  all  unwanted 
temp2  =  static_cast<unsigned  int> (* (pBuf f +6) )  &  mask;  //bytes. 
temp2  =  temp2«8;  //shift  the  msbyte  to  its  position 

opCode  =  tempi  +  temp2;  //combine  the  two  bytes  unsigned  into  one  integer  variable 
}//end  if 

//  FIND  THE  RETURNED  OPCODE  AND  EXEUTE  ACCORDINGLY 

switch  (opCode) { 

//#######  NOTE:  1st  Parameter  in  command  complete  event  pkt  is  array  index  #6 
//#######  Status  parameter  for  command  status  event  is  array  index  #3 


//  THE  RESET  COMMAND  TRIGGERS  A  CHAIN  OF  SETUP  COMMANDS 
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//  TO  PREPARE  THE  BT  MODULE  FOR  USE.  EACH  RESPECTIVE 
//  COMMAND  COMPLETE  EVENT  LEADS  TO  THE  EXECUTION  OF  THE 
//  NEXT  COMMAND  IN  THE  CHAIN  ENDING  WITH  "WRITE  PAGE 
//  TIMEOUT"  THE  COMMAND  COMPLETE  EVENTS  FOR  ALL  OF  THE 
//  SETUP  COMMMANDS  ARE  LISTED  HERE  IN  THIER  ORDER  OF  EXECUTION 
//  BEGINING  WITH  THE  RESET  COMMAND. 

// -  RESET  - 

case  HCI_RESET : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
if  (*(pBuff+6)  ==  0){  //If  reset  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Device  Reset"; 

//ISSUE  NEXT  SETUP  COMMAND 
pktSize  =  ReadBD_ADDR(outBuff ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &OVL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called 
inquiryFilter  =  false; 

}//end  if 

else  {  //If  host  buffer  size  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Reset  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 


break; 

// -  READ  BLUETOOTH  DEVICE  ADDRESS  - 

case  HCI_READ_BD_ADDR: 

//Extract  the  BD  ADDR  parameter  and  convert  it  to  a  string  of 
//ASCII  characters  for  display  to  the  user. 

for  (unsigned  int  n=0;  n<6;  n++)  //Extract  6  byte  address  from 
localDevice . bd_addr [n]  =  * (pBuf f +7+n) ; //the  event  packet 

//Convert  each  nibble  of  the  address  to  an  ASCII 

//char  representative  of  the  hex  digit  contained  in  each  nibble, 
for  (unsigned  int  n=0;  n<12;  n=n+2){ 

x=n/2 ; 

nibbles (localDevice . bd_addr  [5-x] ,  localDevice . addrDisp [n+2] ,  localDevice . addrDisp  [n+3] ) ; 
}//end  for 

localDevice . addrDisp  [14]  =  NULL;  //Append  a  null  for  string  display. 
BT_net->LBD_ADDR_ld->Caption  =  localDevice . addrDisp ; 

//ISSUE  NEXT  SETUP  COMMAND 
pktSize  =  ReadBuf f erSize (outBuf f ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

break; 

// - READ  BUFFER  SIZE - 

case  HCI_READ_BUFFER_SIZE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
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if  (*(pBuff+6)  ==  0){  //If  read  buffer  size  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Read  Buffer  Size  Complete"; 

//EXTRACT  DATA  FROM  PACKET 
//ACL  buff  size 

tempi  =  static_cast<unsigned  int>(* (pBuf f +7) )  &  mask; 
temp2  =  static_cast<unsigned  int>(* (pBuf f +8) )  &  mask; 
temp2  =  temp2«8; 

hostCtrl . sizeACLBuf f  =  tempi  +  temp2; 

//SCO  buff  size 

hostCtrl . sizeSCOBuff  =  *(pBuff+9); 

//number  of  ACL  data  buffers 

tempi  =  static_cast<unsigned  int>(*(pBuff+10))  &  mask; 
temp2  =  static_cast<unsigned  int>(*(pBuff+ll))  &  mask; 
temp2  =  temp2«8; 

hostCtrl .numACLBuff  =  tempi  +  temp2; 

//number  of  SCO  data  buffers 

tempi  =  static_cast<unsigned  int>(*(pBuff+12))  &  mask; 
temp2  =  static_cast<unsigned  int>(*(pBuff+13))  &  mask; 
temp2  =  temp2«8; 

hostCtrl .numSCOBuff  =  tempi  +  temp2; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  HostBuf f erSize (&host ,  outBuff); 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

/♦//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  SetEventFilter (INQUIRY_RESULT,  0,  outBuff ) ;//set  inquiry  result  filter 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called. 
inquiryFilter  =  true;*/ 

}//end  if 

else  {  //If  read  buffer  size  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Read  Buffer  Size  FAILED"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 


break; 

// - HOST  BUFFER  SIZE - 

case  HCI_HOST_BUFFER_SIZE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  OH  //If  host  buffer  size  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Host  Buffer  Size  Sent"; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  SetEventFilter (INQUIRY_RESULT,  0,  outBuff);  //set  inquiry  result  filter 
WriteFile  (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called. 
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inquiryFilter  =  true; 

}//end  if 

else  {  //If  host  buffer  size  failed 
ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Host  Buffer  Size  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 


break; 

// -  SET  EVENT  FILTER  - 

case  HCI_SET_EVENT_FILTER : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  set  event  filter  sucessful 
ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Event  Filter  Set"; 

//ISSUE  NEXT  SETUP  COMMAND  (depends  on  which  filter  was  last  set) 

if  (inquiryFilter) {  //was  the  inquiry  filter  the  last  one  set? 

pktSize  =  WriteScanEnable(3,  outBuff);  //Setting  WSE  to  3  enables  all  scans 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if  inquiry  filter 

else-(  //the  connection  filter  was  the  last  filter  set 

pktSize  =  WriteConnAcceptTimeout (0x2000 ,  outBuff);  //0x2000*625us  =  5.12s 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  else  inquiry  filter 
}//end  if 

else  {  //If  set  event  filter  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Set  Event  Filter  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 


break; 

// -  WRITE  SCAN  ENABLE  - 

case  HCI_WRITE_SCAN_ENABLE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
if  (*(pBuff+6)  ==  0){  //If  write  scan  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Scan  Enable  Complete"; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  WriteVoiceSetting (0x0060,  outBuff);  //0x0060  sets  16bit  2’s  complement  input  type 
WriteFile  (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if 

else  {  //If  write  scan  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Scan  Enable  FAILED"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 


break; 

// -  WRITE  VOICE  SETTING  - 

case  HCI_WRITE_VOICE_SETTING : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  write  voice  setting  sucessful 


ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Voice  Setting  Complete"; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  WriteAuthEnable(OxOO,  outBuff);  //OxOO  Disables  authentication 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if 

else  {  //If  write  voice  setting  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Voice  Setting  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 


break; 

// - WRITE  AUTHENTICATE  ENABLE - 

case  HCI_WRITE_AUTHENTICATION_ENABLE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  OH  //If  write  authentication  enable  sucessful 
ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Write  Authentication  Enable  Complete"; 
//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  SetEventFilter (CONNECTION_SETUP ,  AA_ON_RS_DISABLED ,  outBuff); 
//set  connection  setup  filter  and  auto  accept  off 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called. 
inquiryFilter  =  false; 

}//end  if 

else  {  //If  write  authentication  enable  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Authentication  Enable  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 

break; 


// - SET  UART  BAUD  RATE - 

case  HCI_SET_UART_BAUD_RATE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
if  (*(pBuff+6)  ==  0){  //If  set  uart  baud  rate  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "UART  Baud  Rate  Set  to  460.8kbps"; 

//Set  Baud  Rate  on  Comm  1  to  460.8kbps 
myDCB .BaudRate  =  CBR_115200; 

SetCommState (Cl ,  fanyDCB) ; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  SetEventFilter (CONNECTION_SETUP,  AA_ON_RS_DISABLED ,  outBuff); 
//set  connection  setup  filter  and  auto  accept  off 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 


//each  time  this  command  is  called. 
inquiryFilter  =  false; 

}//end  if 

else  {  //If  set  uart  baud  rate  failed 
ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Set  UART  Baud  Rate  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 
break; 


// -  WRITE  CONNECTION  ACCEPT  TIMOUT  - 

case  HCI_WRITE_CONNECTION_ACCEPT_TIMEOUT : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  write  connection  accept  timeout  sucessful 
ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Connection  Accept  Timeout  Written"; 
//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  WritePageTimeout (0x3000 ,  outBuff);  //0x3000*625us  =  7.68s 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if 

else{  //If  write  connection  accept  timeout  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Connection  Accept  Timeout  FAILED" 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 


break; 

// - WRITE  PAGE  TIMEOUT  (END  OF  SETUP  COMMANDS) - 

case  HCI_WRITE_PAGE_TIMEOUT : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  write  page  timeout  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Page  Timeout  Written"; 

//If  execution  makes  it  to  this  point  the  setup  is  successful. 
BT_net->LStatus2->Caption  =  "Setup  Completed  Successfully" ; 
}//end  if 

else  {  //If  write  connection  accept  timeout  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Page  Timeout  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 

break; 

// -  INQUIRY  STATUS  - 

case  HCI_INQUIRY : 

//Only  a  Command  Status  event  will  reach  this  block  of  code 
//so  check  status  at  array  index  #3 
if  (*(pBuff+3)  ==  0){ 

ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Conducting  Inquiry"; 

}//end  if 

else-( 

BT_net->LStatusl->Caption  =  "Inquiry  Command  Failed"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +3) ) ; 

}//end  else 
break; 


// -  CREATE  CONNECTION  STATUS  - 

case  HCI_CREATE_CONNECTION : 

//Only  a  Command  Status  event  will  reach  this  block  of  code 
//so  check  status  at  array  index  #3 
if  (*(pBuff+3)  ==  0){ 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Creating  Connection"; 

}//end  if 

else{ 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Create  Connection  Command  Failed"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +3) ) ; 

}//end  else 
break; 

// -  ACCEPT  CONNECTIO  REQUEST  STATUS  (NOT  NECCESSARY  BECAUSE  THE  AUTO  ACCEPT 

// - FLAG  IS  CURRENTLY  SET  ON  THE  CONNECTION  FILTER - 

case  HCI_ACCEPT_CONNECTION_REQUEST : 

//Only  a  Command  Status  event  will  reach  this  block  of  code 
//so  check  status  at  array  index  #3 
if  (*(pBuff+3)  ==  0){ 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Accepting  Connection  Request"; 

}//end  if 

else{ 

ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Accept  Connection  Request  Command  Failed"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +3) ) ; 

}//end  else 
break; 

// -  WRITE  LINK  SUPERVISION  TIMOUT  - 

case  HCI_WRITE_LINK_SUPERVISION_TIMEOUT : 

/******INSERT  CODE  HERE*****/ 
break; 

// -  READ  TRANSMIT  POWER  LEVEL  - 

case  HCI_READ_TRANSMIT_POWER_ LEVEL : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  read  transmit  power  level  sucessful 
//Display  Tx  Power  Level 

//BT_net->LTxPower->Caption  =  (static_cast<unsigned  int>(* (pBuf f +9) ) )  &  mask; 

//###########  THIS  CODE  MUST  BE  EDITED  FOR  USE  WTIH  MORE  THAN  2  DEVICES 
//ISSUE  READ  RECIEVE  SIGNAL  STRENGTH  INDICATOR  (RSSI)  COMMAND 
pktSize  =  ReadRSSI (slave [0] . connectHndl ,  outBuff ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if 

else-(  //If  write  connection  accept  timeout  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Read  Transmit  Power  Level  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 
break; 
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// -  READ  RECIEVE  SIGNAL  STRENGTH  INDICATOR  - 

case  HCI_READ_RSSI : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
if  (*(pBuff+6)  ==  0){  //If  read  RSSI  sucessful 

//Display  Receive  signal  strength 

localDevice . rssi  =  static_cast<short> (* (pBuf f +9) ) ; 
BT_net->LRSSI->Caption  =  localDevice .rssi ; 

}//end  if 

else  {  //If  read  RSSI  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Read  RSSI  FAILED"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 
break; 

// - 

case  CLEAR: 
break; 

default : 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Unknown  OpCode"; 

//Convert  each  nibble  of  the  opcode  to  an  ASCII 

//char  representative  of  the  hex  digit  contained  in  each  nibble. 
Int2Char (opCode,  tempOpCode) ; 

nibbles (tempOpCode  [1] ,  opCodeDisp  [2] ,  opCodeDisp  [3] ) ; 

nibbles (tempOpCode [0] ,  opCodeDisp  [4] ,  opCodeDisp  [5] ) ; 
BT_net->LStatus2->Caption  =  opCodeDisp; 

}//end  switch 
}//end  function 

// - 

void  FindEvent (char  *pBuff){ 

//********  VARIABLES  ******** 

// -  Control  Variables  - 

char  evt ; 

unsigned  int  x  =  0,  numHndls  =  0,  numResp  =  0; 

unsigned  int  mask  =  OxOOOOOOFF ; 

// -  Display  Variables  - 

//char  addrDisp[15]  =  {’0’,’x’}; 

char  connectHndlDisp  [7]  =  -[’0’,’x’},  evtDisp  [5]  ={ ’0  ’  , ’x’ } ; 
unsigned  int  errorCode ,  numCompPkts  =  0; 

evt=* (pBuf f+1) ; 

//  FIND  THE  RECEIVED  EVENT  AND  EXECUTE  ACCORDINGLY 


switch  (evt){ 


//######  NOTE:  1st  Parameter  in  event  pkt  is  array  index  #3 


case  EV_COMMAND_COMPLETE : 

FindOpCode (pBuf f ) ; 
break; 

case  EV_COMMAND_STATUS : 

FindOpCode (pBuff) ; 
break; 

case  EV_INQUIRY_COMPLETE : 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Inquiry  Complete"; 
if  (* (pBuff +3)  ==  0) 

BT_net->LStatus2->Caption  =  "Completed  Sucessfully" ; 
else 

BT_net->LStatus2->Caption  =  Error (* (pBuff +3) ) ; 
break; 

case  EV_INQUIRY_RESULT : 

//######  NOTE:  MUST  ADD  COUNTER  TO  COUNT  RESPONSES.  ALL  RESPONDING  DEVICES  MAY  NOT  BE 
//######  CONTAINED  IN  ONE  EVENT  BUT  MAY  CREATE  SEVERAL  EVENTS  THEREFORE  YOU  NEED 

//######  TO  KNOW  HOW  MANY  DEVICES  HAVE  PREVIOUSLY  RESPONED  AND  ARE  ALREADY  ACCOUNTED  FOR. 

numResp  =  (static_cast<unsigned  int> (* (pBuf f +3) ) )  &  mask; 

BT_net->LInqRes->Caption  =  numResp; 

//Load  the  Bluetooth  device  address  for  each  device  that  responded 

//into  the  bd_addr  array  for  each  of  the  slave  structures  (up  to  7 

//slaves  possible)  and  other  device  specific  data  using  nested  for  loops 

for  (unsigned  int  n=0;  nCnumResp;  n++){ 

for  (unsigned  int  c=0;  c<6;  C++) 

slave  [n] .bd_addr [c]  =  *(pBuff+4+(6*n)+c) ; 

}//end  for 

for  (unsigned  int  n=0;  n<numResp;  n++){ 

slave [n] .pgScnRepMode  =  *(pBuff+4+(6*numResp)+n) ; 

}//end  for 

for  (unsigned  int  n=0;  n<numResp;  n++){ 

slave [n] .pgScnPerMode  =  *(pBuff+4+(7*numResp)+n) ; 

}//end  for 

for  (unsigned  int  n=0;  n<numResp;  n++){ 
slave  [n] .pgScnMode  =  * (pBuff+4+(8*numResp)+n) ; 

}//end  for 

for  (unsigned  int  n=0;  nCnumResp;  n++){ 
for  (unsigned  int  c=0;  c<3;  C++) 

slave [n] . deviceClass  [c]  =  * (pBuf f +4+(9*numResp)  +  (3*n) +c) ; 

}//end  for 

for  (unsigned  int  n=0;  nCnumResp;  n++){ 
for  (unsigned  int  c=0;  cC3;  C++) 

slave [n] . clkOff set  [c]  =  *(pBuff+4+(12*numResp)  +  (2*n)+c) ; 

}//end  for 


//****  These  following  lines  of  code  are  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 
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//Convert  each  nibble  of  the  address  to  an  ASCII 

//char  representative  of  the  hex  digit  contained  in  each  nibble, 
for  (unsigned  int  n=0;  n<12;  n=n+2){ 

x=n/2 ; 

///#####  Counter  will  affect  this  code 

nibbles (slave [0] . bd_addr [5-x] ,  slave [0] . addrDisp [n+2] ,  slave [0] . addrDisp  [n+3] ) ; 
}//end  for 

slave [0] . addrDisp [14]  =  NULL;  //Append  a  null  for  string  display. 
BT_net->LBD_ADDR_rd->Caption  =  slave [0] . addrDisp; 
break; 

case  EV_C0NNECTI0N_C0MPLETE : 

//****  This  Code  is  for  connecting  only  two  computers 
//****  This  must  be  modified  before  attempting  to  use  with 
//****  more  than  two  computers  in  a  piconet 

if  (*(pBuff+3)  ==  OH 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Connection  Completed"; 

BT_net->LStatus2->Caption  =  "Successfully"; 

//####  Counter  will  affect  this  code 
//Load  the  information  recieved  about  the 
//remote  device  into  a  BT_DEVICE  structure 


slave [0] . connection  =  true;  //Yes  a  connection  exists 

slave [0] . connectHndl [0]  =  *(pBuff+4); 
slave  [0] . connectHndl [1]  =  *(pBuff+5); 
slave [0] . linkType  =  *(pBuff+12); 
slave  [0] . encryptMode  =  *(pBuff+13); 

//Inform  user  of  the  type  of  link  established 
if  (slave [0] .linkType  ==  ACL_LINK) 

BT_net->LLinkType->Caption  =  "ACL"; 
if  (slave [0] .linkType  ==  SC0_LINK) 

BT_net->LLinkType->Caption  =  "SCO"; 

//Convert  each  nibble  of  the  Connection  Handle  to  an  ASCII 
//char  representative  of  the  hex  digit  contained  in  each  nibble, 
for  (unsigned  int  n=0;  n<4;  n=n+2){ 
x=n/2 ; 

///#####  Counter  will  affect  this  code 

nibbles (slave [0] . connectHndl [1-x] ,  connectHndlDisp [n+2] ,  connectHndlDisp [n+3] ) ; 
}//end  for 

connectHndlDisp  [6]  =  NULL;  //Append  a  null  for  string  display. 
BT_net->LConnectHndl->Caption  =  connectHndlDisp; 
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}//end  if 
else{ 

ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Connection  Failed"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +3) ) ; 

}//end  else 

break; 

case  EV_NUM_COMPLETED_PACKETS : 

//####  NOTE:  THIS  CODE  IS  WRITTEN  FOR  A  SINGLE  POINT  TO  POINT  CONNECTION  WHEN  EDITING 
//####  CODE  TO  HANDLE  SEVERAL  DEVICES  THE  CONNECTION  HANDLES  RETURNED  MAY  NEED 
//####  TO  BE  CHECKED  AND  COMPARED. 

//BEGIN  EXTRACTING  DATA  FROM  PACKET 

numHndls  =  *(pBuff+3);  //number  of  connection  handles  returned 
if(numHndls  >  1){ 

//Because  of  the  nature  of  this  test  program  (transmit .. .wait  for  remote 
//computer  to  process  data  then  re-transmit ...  there  should  be  no  more  than 
//one  connection  handle  returned  from  a  Number  of  Completed  Packets  event. 

MessageBox(0 ,  "ERROR:  More  than  1  connection  handle\nreturned  in  NUM_COMP_PKTS  event" ,0  ,  MB_0K) ; 

}//end  if 

else-( 

numCompPkts  =  *(pBuff+6);  //Only  need  to  read  LSB  of  comp  ACL  pkts  because  the  device  buffer 
//only  holds  10  pkts 

if  (transmitInProgress){  //If  there  is  a  transmit  in  progress  continue  with  it 
TransmitTestData(CONTINUE_TRANSMISSION,  numCompPkts) ; 

}//end  if 
}//end  else 
break; 

case  EV_DATA_BUFFER_OVERFLOW : 

ClearStatus ()  ; 

MessageBox(0,  "DATA  BUFFER  OVERFLOW",  0,  MB_0K) ; 
break; 

case  EV_DISCONNECTION_COMPLETE : 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Connection  Terminated"; 
slave  [0] . connection  =  false; 
break; 

case  EV_MAX_SLOTS_CHANGE : 

BT_net->LStatus3->Caption  =  "Max  LMP  Slots  Change"; 
break; 

default : 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Unknown  Event"; 

//Convert  each  nibble  of  the  event  code  to  an  ASCII 

//char  representative  of  the  hex  digit  contained  in  each  nibble. 
nibbles(evt,  evtDisp[2],  evtDisp[3]); 

BT_net->LStatus2->Caption  =  evtDisp; 

}//end  switch 
}//end  function 
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// - 

void  ResetBuffer (char  buf f  [] ,  DWORD  buffSize){ 
for  (unsigned  int  n=0;  nCbuffSize;  n++) 
buff  [n]  =  NULL; 

}//end  function 

// - 

bool  NumDataPkts (char  buf f [] ,  DWORD  numBytesRead,  DWORD  &numPkts,  char  *pLastPkt ,  bool  &dataError){ 
DWORD  paramLength  =  0,  availBuff  =  0; 
bool  moreData  =  true,  pktSeg  =  false; 
unsigned  int  tempi,  temp2,  mask  =  OxOOOOOOFF ; 
unsigned  int  totalData  =  0; 

numPkts  =  0; 
pLastPkt  =  buff; 

while (moreData) {//while  unaccounted  for  data  exists  do.... 
switch(*pLastPkt){//what  type  of  data  is  this  packet? 

case  UART_EVENT_PACKET : 

//The  third  byte  (2nd  array  element)  in  an  event  pkt  gives 
//the  total  length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//plus  current  amount  of  data  to  compute  total  data  present. 

paramLength  =  static_cast<unsigned  int> (* (pLastPkt+2) )  &  mask; 

totalData  =  totalData  +  3  +  paramLength; 

numPkts++; 

break; 

case  UART_ACL_DATA_PACKET : 

//The  4th  and  5th  bytes  (3rd  and  4th  array  elemetnts)  in  an  ACL  pkt 
//give  the  total  length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//plus  current  amount  of  data  to  compute  total  data  present. 

tempi  =  (static_cast<unsigned  int> (* (pLastPkt+3) ) )  &  mask;  //Convet  2  separate  bytes 

temp2  =  (static_cast<unsigned  int> (* (pLastPkt +4) ) )&  mask;  //into  an  int  variable. 

temp2  =  temp2  «  8; 

paramLength  =  temp2  +  tempi ; 

totalData  =  totalData  +  5  +  paramLength; 

numPkts++; 

break; 

default:  //Unrecognized  pkt  header .. .Error  in  received  data 
moreData  =  false; 
dataError  =  true; 
numPkts  =  numPkts+1; 

BT_net->LStatus2->Caption  =  "Error  in  received  data" ; 
do{ 

//Clear  the  input  buffer 

//The  data  is  useless  since  it  contained  an  error 

availBuff  =  inBuffSize  -  numBytesRead; 

ReadFile(Cl,  pLastPkt,  availBuff,  fcnumBytesRead,  &0VL) ; //read  data  from  COMM  1 
}while (numBytesRead  >  0); 

return  false; 


}//end  switch 


if  (numBytesRead  ==  totalData)  { 
moreData  =  false; //All  data  accounted  for 
pktSeg  =  false; 

}//end  if 
else{//lst  else 

if  (numBytesRead  <  totalData) {//Some  expected  data  is  missing 
moreData  =  false;  //must  read  buffer  again. 
pktSeg  =  true ; 

numPkts  =  numPkts  -  1;  //Last  pkt  was  a  pkt  segment. . .do  not  count  it 
BT_net->LStatus2->Caption  =  "SEGMENTED  PACKET"; 

}//end  if  numBytesReadCtotalData 
else  {//2nd  else 
pLastPkt  =  buff; 

pLastPkt  =  pLastPkt  +  totalData;  //More  data  remaining  to  be  counted. 

}//end  2nd  else 
}//end  1st  else 
}//end  while 
return  pktSeg; 

}//end  function 

// - 

void  _ fastcall  TBT_net : : BInquiryClick(TObject  *Sender){ 

char  inqDuration  =  24;  //=  24*1. 28s  =  30.72s 

pktSize  =  Inquiry(inqDuration,  1,  outBuff);  //Returns  after  1  inquiry  is  received. 
WriteFile(Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

} 

// - 

void  _ fastcall  TBT_net : : BBeginTestClick(TObject  *Sender){ 

//TEST  SETUP 
AnsiString  sDist; 
short  sDistSize; 
char  dist[15]  =  {NULL}; 

//Assign  the  value  entered  by  the  user  into  the  Transmission  Test  class  "cTest" 

sDist  =  CBDist->Text ; 

sDistSize  =  sDist . Length () ; 

for  (short  c=l;  c<=sDistSize ;  C++) 

dist[c-l]  =  sDist  [c]  ; 

dist [sDistSize]  =  NULL; 

LStatus2->Caption  =  dist; 

cTest . setDistance (dist ,  sDistSize) ; 

AnsiString  sTop; 

//Assign  the  value  entered  by  the  user  into  the  Transmission  Test  class  "cTest" 
sTop  =  CBTopology->Text ; 
cTest . setTopology (sTop  [1] ) ; 

LStatus2->Caption  =  sTop[l]; 

//BEGIN  TEST 
cTest  .newTestO  ; 

cTest . setLinkState (localDevice . addrDisp,  slave [0] .addrDisp,  localDevice . rssi) ; 
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readRssi  =  false; 

//Begin  by  transmitting  the  small  file 
TransmitTestData(SMALL_FILE,  0); 

} 

// - 

void  _ fastcall  TBT_net : : BSendClick(TObject  *Sender){ 

DWORD  dataLength; 

AnsiString  input; 
unsigned  int  inputSize; 

input  =  Message->Text ; 

Message->Text  =  //Reset  message  block 
inputSize  =  input . Length () ; 
dataLength  =  inputSize  +  4; 

for  (unsigned  int  c  =  1;  c  <=  inputSize;  C++) 
outBuff[c+3]  =  input  [c]  ; 

//*****  Adding  L2CAP  4  byte  header  ***** 

//The  first  two  bytes  of  the  header  are  the  L2CAP  Packet  length 
//(i.e.  The  length  of  data  to  be  transmitted  may  be  greater  than  the  HCI 
//packet  lenght) 

//The  second  two  bytes  of  the  header  is  the  Channel  ID  (CID)  and  can 
//range  from  0x0040  to  OxFFFF.  For  message  traffic  use  0x0300. 

//***N0TE:  Message  is  assumed  to  be  <=  255  bytes  long 

outBuff[0]  =  static_cast<char> (inputSize) ;  //L2CAP  pkt  length  lsb 
outBuff[l]  =  0x00;  //L2CAP  pkt  length  msb 
outBuf f [2]  =  0x00;  //CID  lsb 
outBuff[3]  =  0x03;  //CID  msb 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 

pktSize  =  SendACLPkt (slave [0] . connectHndl ,  dataLength,  FIRST_PKT_P2P ,  outBuff); 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

} 

// - 

void  _ fastcall  TBT_net : : BResetClick(T0bject  *Sender){ 

//RESET  BT  MODULE 
pktSize  =  Reset (outBuf f ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//RESET  CONNECTION  C0NRT0L  VAR 
for  (unsigned  int  n=0;  n<7 ;  n++) 

slave [n] . connection  =  false; 

//RESET  DISPLAY 
ResetDisplay () ; 

} 


// 
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void  _ fastcall  TBT_net : : BConnectClick(TObject  *Sender){ 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 

pktSize  =  CreateConnection(&slave  [0] ,  localDevice .pktType ,  outBuff ) ; 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

} 

// - 

void  _ fastcall  TBT_net : : CBControlCloseUp(TObject  *Sender){ 

localDevice .master  =  CBControl->ItemIndex ; 

if  (localDevice  .master) -(//if  the  local  device  will  be  the  master... 
//buttons  and  comboboxes 
BInquiry->Enabled  =  true; 

BConnect->Enabled  =  true; 

CBPktType->Enabled  =  true; 

}//end  if 
else{ 

//buttons  and  comboboxes 
BInquiry->Enabled  =  false; 

BConnect->Enabled  =  false; 

CBPktType->Enabled  =  false; 

}//end  else 

} 

// - 


void  _ fastcall  TBT_net : : CBPktTypeCloseUp(TObject  *Sender){ 

unsigned  int  pktRef ; 

pktRef  =  CBPktType->ItemIndex; 

//Assign  the  value  entered  by  the  user  into  the  Transmission  Test  class  "cTest" 
swit ch (pktRef ) { 
case  0: 

localDevice .pktType  =  DM1; 
cTest . setPktType (DM1) ; 
break; 
case  1 : 

localDevice .pktType  =  DH1; 
cTest . setPktType (DH1) ; 
break; 
case  2: 

localDevice .pktType  =  DM3; 
cTest . setPktType (DM3) ; 
break; 
case  3: 

localDevice .pktType  =  DH3; 
cTest . setPktType (DH3) ; 
break; 
case  4: 


99 


localDevice .pktType  =  DM5; 
cTest . setPktType (DM5) ; 
break; 
case  5: 

localDevice .pktType  =  DH5; 
cTest . setPktType (DH5) ; 

}//end  switch 

//Disconnect  all  current  connections, 
for  (unsigned  int  c=0;  c<7 ;  c++){ 
if  (slave [c] . connection  &  localDevice .master) { 
slave [c] . connection  =  false; 

Disconnect ing() ; 

LStatusl->Caption  =  "Disconnecting" ; 

pktSize  =  Disconnect (slave [c] . connectHndl ,  0x13,  outBuff ) ;  //user  ended  connection 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if 
else 

c  =  7;  //If  no  connection  exists  end  loop  (connections  are  established  in  sequential  order 
//therefore  if  slave [0] . connection  does  not  exist  there  is  no  reason  to  complete  the  loop) 
}//end  for 
} 

// - 

void  _ fastcall  TBT_net : : CBTestRoleCloseUp(TObject  *Sender){ 

localDevice . conductingTest  =  CBTestRole->ItemIndex; 

if (localDevice . conductingTest){//if  the  local  device  will  be  conducting  the  test... 

//buttons  and  comboboxes 
BBeginTest->Enabled  =  true; 

CBPktType->Enabled  =  true; 

CBDist->Enabled  =  true; 

CBTopology->Enabled  =  true; 

CBNumTrans->Enabled  =  true; 

}//end  if 
else{ 

//buttons  and  comboboxes 
BBeginTest->Enabled  =  false; 

CBPktType->Enabled  =  false; 

CBDist->Enabled  =  false; 

CBTopology->Enabled  =  false; 

CBNumTrans->Enabled  =  false; 

}//end  else 

} 

// - 

void  _ fastcall  TBT_net : : CBNumTransCloseUp(TObject  *Sender){ 

//Assign  twice  the  number  of  requested  test 
//transmissions  to  "numTestTrans"  because  two 
//tests  are  run  for  each  round  of  tests 
numTestTrans  =  2* (CBNumTrans->ItemIndex) ; 
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} 

// - 

void  TransmitTestData(int  fileSize,  unsigned  int  tDataSize){ 

//*******  VARIABLES  ****** 
static  DWORD  dataLength,  dataLeft; 
static  char  *pDataFile; 
char  pktLength[4] ,  cidLsb; 
bool  firstACLpkt  =  false; 

unsigned  int  numACLPktsSent  =0,  n;  //Loop  control  variable 
unsigned  int  buf f ersAvailable  =  hostCtrl .numACLBuff ; 

const  unsigned  int  maxPktSize  =  hostCtrl . sizeACLBuff ;  //max  size  of  ACL  pkt  alowable  so  as  not  to 
//overflow  the  ACL  Buffer  of  the  local  BT  module. 

static  unsigned  int  nextData2Send  =  0;  //contains  the  array  index  of  the  next  data  byte  to  send 
//if  nextData2Send  ==  dataLength  then  all  data  has  been  sent 

switch  (fileSize)l 
case  SMALL_FILE : 

//SEND  SMALL  FILE 

dataLength  =  cTest . sizeDataShort  +  4; 
pDataFile  =  cTest . dataShort ; 
cidLsb  =  LARGE_FILE; 
transmitlnProgress  =  true; 
firstACLpkt  =  true; 

BT_net->LTestStatus->Caption  =  "Transmitting  Small  File"; 
break; 

case  LARGE_FILE: 

//SEND  LARGE  FILE 

dataLength  =  cTest . sizeDataLong  +  4; 
pDataFile  =  cTest . dataLong; 
cidLsb  =  SMALL.FILE; 
transmitlnProgress  =  true; 
firstACLpkt  =  true; 

BT_net->LTestStatus->Caption  =  "Transmitting  Large  File"; 
break; 

case  RETRANSMIT: 

//LOCAL  DEVICE  IS  NOT  CONDUCTING  TEST 
//RETRANSMIT  THE  RECEIVED  DATA 

dataLength  =  tDataSize  +  4; 
pDataFile  =  testDataBuf f ; 
firstACLpkt  =  true; 

if (tDataSize  ==  2){  //A  timeout  has  occured 
*(pDataFile)  =  0x02;  //L2CAP  pkt  length  lsb 
* (pDataFile+1)  =  0x00;  // L2CAP  pkt  length  msb 
}  //end  if 

BT_net->LTestStatus->Caption  =  "Retransmitting  Received  Data" ; 
break; 

case  C0NTINUE_TRANSMISSI0N : 
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//The  new  number  of  buffers  available  is  equal 
//to  the  number  of  packets  completed.  This  number 
//is  passed  to  TransmitTestDataO  as  tDataSize 
buf f ersAvailable  =  tDataSize; 
break; 


default : 

BT_net->LTestStatus->Caption  =  "Unknown  File  type  to  Transmit"; 
}//end  switch 


if  (dataLength  <=  maxPktSize) {//If  test  data  is  smaller  that  the  local  device’s 
for  (n=0;  n<dataLength;  n++)  //ACL  Buffer  Size  send  it 
outBuff[n]  =  *  (pDataFile+n)  ; 

//*****  Adding  L2CAP  4  byte  header  ***** 

//The  first  two  bytes  of  the  header  are  the  L2CAP  Packet  length 
//(i.e.  The  length  of  data  to  be  transmitted  may  be  greater  than  the  HCI 
//packet  lenght) 

//The  second  two  bytes  of  the  header  is  the  Channel  ID  (CID)  and  can 
//range  from  0x0040  to  OxFFFF.  For  test  data  use  OxEEOO 


if  ( (f ileSize ! =RETRANSMIT)  &&  (f ileSize ! =C0NTINUE_TRANSMISSI0N) ) { 
Int2Char (dataLength-4,  pktLength) ; 


outBuf  f  [0] 
outBuf f  [1] 
outBuf  f  [2] 
outBuf  f  [3] 
} 


=  pktLength [0] ;  //L2CAP  pkt  length  lsb 
=  pktLength [1] ;  //L2CAP  pkt  length  msb 
=  cidLsb;  //CID  lsb 
=  TEST_DATA_MSB ;  //CID  msb 


//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 


ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Transmitting  Test  Data"; 

BT_net->LStatus2->Caption  =  "Packet  is  <  400  bytes"; 

pktSize  =  SendACLPkt (slave  [0] . connectHndl ,  dataLength,  FIRST_PKT_P2P ,  outBuff); 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 
if  (f ileSize  !=  -1) 
cTest .beginTransmit () ; 

nextData2Send  =  dataLength;  //Used  to  inform  Program  that  Transmission  is  complete 
}//end  if 

else{  //The  data  is  too  large  to  send  in  one  ACL  Packet ...  it  must  be  split  up 
while ( (nextData2Send  !=  dataLength)  &&  (numACLPktsSent  !=  buf f ersAvailable) ) { 


if  (dataLength  >  (nextData2Send+maxPktSize) ) {  //enough  data  exists  to  send  another  "full"  ACL  pkt. 

//Load  up  the  output  Buffer 

for  (n=0;  n<maxPktSize ;  n++) 

outBuff [n]  =  * (pDataFile+nextData2Send+n) ; 

if  (f irstACLpkt) { 

//If  this  is  the  first  ACL  pkt  an  L2CAP  header  needs  to  be 
//added  and  also  the  ACL  PB  flag  must  be  set  to  first  packet 


f irstACLpkt  =  false; 


if  ( (f ileSize ! =RETRANSMIT)  &&  (f ileSize !=CONTINUE_TRANSMISSION)){ 

Int2Char (dataLength-4,  pktLength) ; 

outBuff[0]  =  pktLength  [0] ;  //L2CAP  pkt  length  lsb 
outBuff[l]  =  pktLength [1] ;  //L2CAP  pkt  length  msb 
outBuf f [2]  =  cidLsb;  //CID  lsb 
outBuf f [3]  =  TEST_DATA_MSB ;  //CID  msb 
}//end  if 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Transmitting  Test  Data"; 

BT_net->LStatus2->Caption  =  "1st  ACL  pkt  of  large  L2CAP  pkt"; 

pktSize  =  SendACLPkt (slave [0] . connectHndl ,  maxPktSize,  FIRST_PKT_P2P ,  outBuff); 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 
if  (f ileSize  !=  -1) 
cTest .beginTransmit () ; 

}//end  if 
else{ 

//If  this  is  not  the  fist  ACL  pkt  no  L2CAP  header  needs  to  be  added 
//but  the  ACL  PB  flag  must  be  set  to  continuing  packet 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Transmitting  Test  Data"; 

BT_net->LStatus2->Caption  =  "Continuing  ACL  pkt  of  large  L2CAP  pkt"; 

pktSize  =  SendACLPkt (slave [0] . connectHndl ,  maxPktSize,  C0NT_PKT_P2P ,  outBuff); 
WriteFile  (Cl ,  &outBuff,  pktSize,  &VAL,  &QVL) ; 

}//end  else 

nextData2Send  =  nextData2Send  +  maxPktSize;  //increment  nextData2Send 
}//end  if 

else-(  //There  is  not  enough  data  left  to  send  a  "full"  ACL  pkt. 
dataLeft  =  dataLength  -  nextData2Send; 

//Load  up  the  output  Buffer 

for  (n=0;  n<dataLeft;  n++) 

outBuff  [n]  =  * (pDataFile+nextData2Send+n) ; 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 

ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Transmitting  Test  Data"; 

BT_net->LStatus2->Caption  =  "Partially  full  ACL  pkt  for  large  L2CAP  pkt"; 

pktSize  =  SendACLPkt (slave [0] . connectHndl ,  dataLeft,  C0NT_PKT_P2P ,  outBuff); 
WriteFile  (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

nextData2Send  =  dataLength;  //end  the  while  loop 


}//end  else 
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numACLPktsSent++;  //Increment  the  number  of  ACL  pkts  sent 
}//end  while 
}//end  else 

if (nextData2Send  ==  dataLength){  //Transmission  is  complete 
BT_net->LStatus2->Caption  =  "Finished  Transmitting  File"; 
transmitlnProgress  =  false;  //Transmission  is  finished 

//Reset  Static  variables 
nextData2Send  =  0; 
dataLength  =  0; 
dataLeft  =  0; 

}//end  if 

} 

// - 

void  ResetDisplay (){ 

/ /Buttons 

BT_net->BInquiry->Enabled  =  false; 

BT_net->BConnect->Enabled  =  false; 

BT_net->BBeginTest->Enabled  =  false; 

//Combo  Boxes 

BT_net->CBPktType->Enabled  =  false; 

BT_net->CBDist->Enabled  =  false; 

BT_net->CBTopology->Enabled  =  false; 

BT_net->CBNumTrans->Enabled  =  false; 

//Display  Labels 

BT_net->LBD_ADDR_rd->Caption  =  "  ";  //BT_ADDR  for  remote  device  1 
BT_net->LBD_ADDR_ld->Caption  =  "  ";  //BT_ADDR  for  local  device 
BT_net->LConnectHndl->Caption  =  "  " ; 

BT_net->LInqRes->Caption  =  "  " ; 

BT_net->LRSSI->Caption  =  "  " ; 

BT_net->LRx->Caption  =  "  "; 

BT_net->LTestStatus->Caption  =  "  "; 

BT_net->LStatusl->Caption  =  "  "; 

BT_net->LStatus2->Caption  =  "  "; 

BT_net->LStatus3->Caption  =  "  "; 

BT_net->LCurTrans->Caption  =  "  " ; 

BT_net->LPktNum->Caption  =  "  " ; 

} 

// - 

void  ClearStatus () { 

//Clear  all  of  the  status  labels 
BT_net->LStatusl->Caption  =  "  "; 

BT_net->LStatus2->Caption  =  "  "; 

BT_net->LStatus3->Caption  =  "  "; 

} 


// 


void  DisconnectingO { 


ClearStatus ()  ; 

BT_net->LConnectHndl->Caption 
BT_net->LRSSI->Caption  =  "  " ; 
BT_net->LTestStatus->Caption 
BT_net->LCurTrans->Caption  = 
BT_net->LPktNum->Caption  =  " 

} 


Appendix  C 


BTTest  v.  3.1 


C.l  BTTest3  l.h 

//BTTest3_l.h 

//Written  on  19QCT02  by  MIDN  Kenneth  J.  Hoover 
//Last  updated  22MAR03 
// 

//This  header  file  defines  forms  and  variables  and  contains  function 
//prototyes  for  the  BTTest  program. 

// - 

#ifndef  BTCommH 
#define  BTCommH 

// - 

#include  <Classes .hpp> 

#include  <Controls .hpp> 

#include  <StdCtrls .hpp> 

#include  <Forms.hpp> 

#include  "BT_f unctions .h" 

# include  "UART.h" 

#include  <ExtCtrls .hpp> 

#include  <Menus.hpp> 

#include  "transTest .h" 

DWORD  BaudRateG  =  {CBR_9600,  CBR_14400,  CBR_57600,  CBR_115200>; 

const  DWORD  testDataBuf f Size  =  100100,  inBuffSize  =  100100,  outBuffSize  =  600;//595  bytes  usable  (5  byte  header  for 
C0MMTIME0UTS  CT1,  CTinit ; 

BT_DEVICE  slave [7],  localDevice; 

BUFFERS  host,  hostCtrl; 
unsigned  long  pktSize; 
bool  connection  [7]  =  {0}; 

bool  readRssi  =  true,  transmitlnProgress  =  false; 

DCB  myDCB,  initDCB; 

//DATA  VARIABLES 

char  inBuff [inBuffSize] ,  outBuff [outBuffSize] ,  testDataBuf f  [testDataBuf f Size] ; 

TransTest  cTest; 
unsigned  int  numTestTrans ; 

// - 
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class  TBT_net  :  public  TForm{ 

_ published:  //  IDE-managed  Components 

TT imer  *Timer 1 ; 

TGroupBox  *GroupBoxl ; 

TGroupBox  *GroupBox2 ; 

TGroupBox  *GroupBox3 ; 

//STATIC  LABELS 

TLabel  *Labell; 

TLabel  *Label2; 

TLabel  *Label3; 

TLabel  *Label4; 

TLabel  *Label5; 

TLabel  *Label9; 

TLabel  *Labell3; 

TLabel  *Label6; 

TLabel  *LabellO; 

TLabel  *Labelll; 

TLabel  *Labell2; 

TLabel  *Labell4; 

TLabel  *Labell5; 

//DISPLAY  LABELS 

TLabel  *LBD_ADDR_rdl ;  //BT_ADDR  for  remote  device  1 
TLabel  *LBD_ADDR_rd2 ;  //BT_ADDR  for  remote  device  2 

TLabel  *LBD_ADDR_ld;  //BT_ADDR  for  local  device 
TLabel  *LLinkType; 

TLabel  *LConnectHndll ; 

TLabel  *LInqRes ; 

TLabel  *LRSSI1; 

TLabel  *LRx; 

TLabel  *LTestStatus ; 

TLabel  *LStatusl; 

TLabel  *LStatus2; 

TLabel  *LStatus3; 

TLabel  *LCurTrans; 

TLabel  *LPktNum; 

TLabel  *LConnectHndl2; 

TLabel  *LRSSI2; 

//INPUT  BOX 
TLabeledEdit  *Message; 

//BUTTONS 

TButton  *BBeginTest; 

TButton  *BSend; 

TButton  *BReset; 

TButton  *BConnectl; 

TButton  *BConnect2; 

TButton  *BInquiry; 

//C0MB0B0XES 

TComboBox  *CBDist; 

TComboBox  *CBTopology; 

TComboBox  *CBControl; 

TComboBox  *CBTestRole; 

TComboBox  *CBPktType; 
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TComboBox  *CBNumTrans; 

TComboBox  *CBSlaveSelect ; 


void  fastcall  FormCreate(TObject  *Sender) ; 

void  fastcall  FormDestroy(TObject  *Sender) ; 

//TIMER  INTERUPT 

void  _ fastcall  TimerlTimer(TObject  *Sender) ; 


//BUTTON  CLICKS 


void 

void 

void 

void 

void 


.fastcall 

fastcall 

fastcall 

fastcall 

fastcall 


BInquiryClick(TObject  *Sender) ; 
BBeginTestClick(TObject  *Sender) ; 
BSendClick(TObject  *Sender) ; 
BResetClick(TObject  *Sender) ; 
BConnectlClick(TObject  *Sender) ; 


//C0MB0B0XES  CLOSE 


void  _ fastcall  CBControlCloseUp(TObject  *Sender) ; 

void  _ fastcall  CBPktTypeCloseUp(TObject  *Sender) ; 

void  _ fastcall  CBTestRoleCloseUp(TObject  *Sender) ; 

void  _ fastcall  CBNumTransCloseUp(TObject  *Sender) ; 

void  _ fastcall  BConnect2Click(T0bject  *Sender) ; 


private:  //  User  declarations 
public:  //  User  declarations 


_ fastcall  TBT_net (TComponent*  Owner); 

}; 


// - 

//*****  FUNCTIONS  ***** 

//FindOpCode () : 

//This  function  looks  up  the  OpCode  returned  in  a  Command  Complete  or 
//Command  Status  event  packet  and  processes  the  data  contained  within 
//the  event  packet  accordingly. 

// 

//Parameters  *pBuff :  Pointer  to  the  first  byte  in  the  returned 
//  event  packet 

void  FindOpCode (char  *pBuff); 

// - 

//Find  Event (): 

//This  function  looks  up  Event  retruned  in  an  event  packet  and  processes  the 
//data  contained  within  the  event  packet  accordingly 
// 

//Parameters  *pBuf f :  Pointer  to  the  first  byte  in  the  returned 
//  event  packet 

void  FindEvent (char  *pBuff); 


// 
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//ResetBufferO  : 

//This  function  resets  an  array  of  characters  to  NULL 

// 

//Parameters  buff[]:  Buffer  to  reset. 

//  buff Size:  Size  of  the  buffer  to  reset. 

void  ResetBuffer (char  buf f  [] ,  DWORD  buffSize) ; 

// - 

//NumDataPkts () : 

//This  function  is  used  to  determine  the  number  of  Bluetooth  HCI  pakcets 
//contained  in  a  string  of  characters.  It  also  determines  if  all  of  the 
//packets  are  complete  or  if  a  packet  was  segmented  during  the  read. 

// 

//Parameters  buff[]:  Buffer  in  which  the  data  is  contained. 

//  numBytesRead:  Number  of  bytes  contained  in  the  buffer 
//  fenumPkts:  Address  of  an  integer  which  contains  the 
//  number  of  data  packets  contained  in  the 
//  buffer. 

//  *pLastPkt :  Pointer  to  the  first  byte  of  the  last  packet 
//  contained  in  the  buffer. 

//  &dataError:  Returns  true  if  data  is  incomplete 

// 

//Return:  (bool)  True  if  a  the  buffer  contains  a  segmented  packet. 

bool  NumDataPkts  (char  buf  f  []  ,  DWORD  numBytesRead,  DWORD  fenumPkts,  char  *pLastPkt ,  bool  MataError)  ; 

// - 

//TransmitTestDataO  : 

//This  function  prepares  and  transmits  or  retransmits  the  test  data. 

// 

//Parameters  connHndl [] :  Two  Byte  connection  handle  of  the  destination 
//  device. 

//  fileSize:  SMALL_FILE  -  Send  small  file 
//  LARGE_FILE  -  Send  large  file 
//  RETRANSMIT  -  Retransmit  received  data 
//  CONTINUE_TRANSMISSION  -  Continue  with  a 
//  transmission  that  is  currently  in  progress. 

//  tDataSize:  Size  of  test  data  received,  (only  used  when 
//  retransmitting  data) 

void  TransmitTestData(char  connHndl [],  int  fileSize,  unsigned  int  tDataSize); 

// - 

//ResetDisplayO  : 

//This  function  resets  the  labels  and  controls  on  the  Graphical  User  Interface, 
void  ResetDisplayO; 

// - 

//ClearStatus () : 

//This  function  resets  the  Status  labels  on  the  Graphical  User  Interface. 


void  ClearStatus () ; 
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// 


//Disconnect ing() : 

//This  function  resets  the  Status  labels  and  other  labels  related  to  an  ACL 
//connection  on  the  Graphical  User  Interface. 

void  DisconnectingO  ; 

// - 

#def ine  ZER0_0PC0DE  0x0000 
extern  PACKAGE  TBT_net  *BT_net ; 

// - 

#endif 


C.2  BTTest3  l.cpp 

/ /BTTest3_l . cpp 

//Written  on  240CT02  by  MIDN  Kenneth  J.  Hoover 
//Last  updated  31MAR03 
// 

//This  program  sets  up  and  creates  a  Bluetooth  wireless  link  through  which 
//data  is  sent  via  a  virtual  serial  link  between  two  computers,  each  running 
//this  program.  It  then  runs  a  test  program  used  to  test  data  transmision  times 
//between  a  single  master  and  slave  using  two  differnt  size  text  files.  This 
//program  is  written  for  use  with  the  Ericsson  R0K  101  008  Bluetooth  baseband 
//controller  and  tranciever. 

// - 

#include  <vcl . h> 

#pragma  hdrstop 

#include  "BTTest3_l .h" 

// - 

#pragma  package (smart_init) 

#pragma  resource  "*.dfm" 

TBT_net  *BT_net ; 


// 


_ fastcall  TBT_net : : TBT_net (TComponent*  Owner) 

:  TForm( Owner) 

{ 

} 

// - 

void  _ fastcall  TBT_net : : FormCreate(T0bject  *Sender){ 

//INITIALIZATION  OF  THE  SERIAL  PORT  (COMM  1) 

Cl  =  CreateFile (Port [0] ,  GENERIC_READ  I  GENERIC_WRITE,  0,  NULL,  0PEN_EXISTING, 
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FILE_FLAG_OVERLAPPED ,  NULL); 

GetCommState(Cl ,  &initDCB) ;  //Save  inital  DCB  in  order  to  reset  Comm  1  on  exit  of  program 
myDCB  =  initDCB;  //Initailize  myDCB  to  current  Comm  Port  settings 
myDCB.BaudRate  =  BaudRate  [3] ; 
myDCB . f Binary  =  TRUE; 

myDCB . f Parity  =  FALSE;  //No  parity  check 

myDCB . fOutxCtsFlow  =  TRUE;  //should  be  true  ******** 

myDCB . fOutxDsrFlow  =  FALSE; 

myDCB. fDtrControl  =  DTR_CONTROL_DISABLE ; 

myDCB . fDsrSensitivity  =  FALSE; 

myDCB. fOutX  =  FALSE; 

myDCB . f InX  =  FALSE; 

myDCB. f Null  =  FALSE; 

myDCB . fRtsControl  =  RTS_C0NTR0L_T0GGLE;  //should  be  toggle  ***** 
myDCB. ByteSize  =  8; 
myDCB. Parity  =  NDPARITY ; 
myDCB . StopBits  =  ONESTQPBIT; 

SetCommState(Cl ,  fanyDCB) ; 

//COMM  TIMEOUTS 
GetCommTimeouts (Cl ,  &CT1) ; 

GetCommTimeouts (Cl ,  &CTinit) ; 

CT1  =  CTinit;  //Initialize  CT1  to  current  comm  timeout  settings. 

CT1 .ReadlntervalTimeout  =  10;  //Timeout  on  read  if  delay  is  greater  than  100ms 
//between  chars . 

CT1 .ReadTotalTimeoutMultiplier  =  0;  //Timeout  on  read  if  total  read  time  is  greater 
CT1 . ReadTotalTimeoutConstant  =  50;  //than  200ms 
SetCommTimeouts (Cl ,&CT1) ; 

//INITIALIZE  BT  MODULE 
pktSize  =  Reset (outBuff ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//INITIALIZE  DATA  VARIABLES 

ResetBuffer (inBuff ,  inBuf fSize) ; 

host . sizeACLBuf f  =  400; 

host . sizeSCOBuf f  =  400; 

host . numACLBuf f  =  1; 

host .numSCOBuff  =  1; 

//GUI  SETUP 
ResetDisplay () ; 

} 

// - 

void  _ fastcall  TBT_net : : FormDestroy (TObject  *Sender){ 

//RESET  COMM  STATES  BEFORE  CLOSING  PROGRAM 
SetCommState(Cl ,  feinitDCB) ; 

SetCommTimeouts (Cl ,  feCTinit) ; 

CloseHandle (&C1) ; 

} 

// - 


void  _ fastcall  TBT_net :: Timer ITimer (TObject  *Sender){ 


Ill 


//******  VARIABLES  ****** 

// - Buffer  Variables - 

DWORD  numBytesRead,  numPkts  =  0; 
char  *pPkt  =  inBuf f ,  *pLastPkt  =  inBuf f ; 
static  char  *pReadPt  =  inBuf f ; 
static  unsigned  int  buff Avail  =  inBuf f Size; 

// -  Packet  and  Data  Control  Variables 

bool  segmentedPkt  =  false; 

unsigned  int  pktSize,  mask  =  OxOOOOOOFF,  amtProcData  =  0; 
static  unsigned  int  segSize  =  0; 

// - RSSI  Variables 

static  unsigned  int  cycle  =  0; 
const  unsigned  int  rssiFreq  =  12; 

// -  Display  Variables  - 

char  dataDisp [255]  =  {NULL}; 

// -  Temporary  Variables  - 

char  tempAry[450]  =  {0}; 
unsigned  int  tempi,  temp2; 

//********  TRANSMISSION  TEST  VARIABLES  ********* 
static  unsigned  int  testDataReceived  =  0,  numTestsRan  =  0; 
static  unsigned  int  12capPktSize ,  storedL2capData  =  0; 
short  fileType; 

unsigned  int  slavelndex  =  0,  n;  //loop  control  variable 
char  aclFlags ,  flagMask  =  OxFO; 

Timer  cTimer; 
char  bytesOf Int  [4] ; 

unsigned  int  processedPkts  =  0,  curProcPkts  =  0,  t_proc  =  0,  errors  =  0; 

DWORD  newBytesRead  =  0,  loopLimit  =  200,  loopCount  =  0; 
bool  timeOut  =  false,  slaveFound  =  false; 
static  char  tempConnHndl ; 

//  DETERMINE  IF  DATA  HAS  ARRIVED  AND  PROCESS  IT 

Timerl->Enabled  =  false ; //Disable  timer  while  processing  data 

ReadFile(Cl,  pReadPt ,  buffAvail,  &numBytesRead,  &0VL) ; //read  data  from  COMM  1 

if (numBytesRead  !=  0  ){  //If  data  is  present  ...  If  not  end. 
numBytesRead  =  numBytesRead  +  segSize; 

segmentedPkt  =  NumDataPkts (inBuf f ,  numBytesRead,  numPkts,  pLastPkt ,  timeOut);  //Does  a  partial  packet  exist  in  the 
for(unsigned  int  p=0;  pCnumPkts;  p++){  //Process  data  from  all  available  data  packets 
switch(*pPkt) {  //switch  UART  header 
case  UART_EVENT_PACKET : 

//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  &  mask)  +  3; 

FindEvent (pPkt) ; 
break; 


112 


case  UART_ACL_DATA_PACKET : 

ClearStatus () ; 

LStatusl->Caption  =  "Data  Received" ; 

//The  4th  and  5th  bytes  in  an  ACL  pkt  give  the  total 
//length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//to  compute  total  packet  size. 

tempi  =  (static_cast<unsigned  int> (* (pPkt+3) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+4) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 
pktSize  =  temp2  +  tempi  +  5; 

LStatus2->Caption  =  pktSize; 


//  CHECK  THE  MOST  SIGNIFICANT  BYTE  OF  THE  L2CAP  CHANNEL  ID 
//  THIS  BYTE  TELLS  WHAT  TYPE  OF  DATA  IS  BEING  RECIEVED : 

//  TEST  DATA  OR  MESSAGE  DATA.  TEST  DATA  MUST  BE  PROCESSED 
//  AND  RETRANSMITTED,  BUT  MESSAGE  DATA  IS  DISPLAYED  TO  THE 
//  USER  AND  THEN  DISCARDED. 

//  IF  THE  ACL  FLAGS  INDICATE  A  CONTINUING  PACKET  THE  PAKCET  MUST 
//  TRANSMISSION  TEST  DATA.  SINCE  CONTINUING  PACKETS  DO  NOT 
//  CONTAIN  L2CAP  HEADER  INFORMATION  THE  12capCIDmsb  VARIABLE 
//  MUST  BE  MANUALLY  SET  TO  TEST_DATA_MSB . 

switch  (*(pPkt+8)){  //Switch  L2CAP  CID  msb 


case  MESSAGE_MSB : 


//###########  ACL  Data  Display  for  ONLY  one  BT  Slave  ############ 
for (unsigned  int  n=9;  n<pktSize;  n++) 

dataDisp  [n-9]  =  *(pPkt+n);  //Move  data  from  data  pkt  to  a  string  for  display 
dataDisp [pktSize-9]  =  NULL;  //Add  a  null  char  to  end  for  string  output 
LRx->Caption  =  dataDisp; 
break; 


case  TEST_DATA_MSB : 

//IF  EXECUTION  REACHES  THIS  POINT  AT  LEAST  ONE  COMPLETE  PKT  EXISTS 

IF  TEST  DATA  IS  BEING  RECIEVED  EXECUTION  WILL  REMAIN  IN  THIS  LOOP  UNTIL  THE  WHOLE 
TEST  DATA  FILE  HAS  BEEN  READ  INTO  THE  INPUT  BUFFER.  DURING  EACH  ITERATION  THE  DATA 
READ  WILL  BE  COUNTED  AND  COMPARED  TO  THE  TOTAL  SIZE  OF  THE  PAKCET.  IT  WILL  ALSO  BE 
FOR  OTHER  TYPES  OF  DATA  WHICH  MAY  BE  MIXED  IN  AND  STORE  THAT  DATA  SEPARATELY.  ONCE 
THE  COMPLETE  FILE  IS  READ  THE  DATA  WILL  BE  PROCESSED.  THIS  WHOLE  PROCESS  WILL  BE 
TIMED  AND  RETURNED  TO  THE  TESTING  DEVICE  AS  Tproc  (PROCESSING  TIME) . 


tempConnHndl  =  *(pPkt+l)  &  mask;  //Store  the  connection  handle  so  we  know  who  sent  the  test  data 
do{  //  continue  loop  until  the  complete  test  file  has  been  read 

for(curProcPkts=processedPkts;  curProcPkts<numPkts ;  curProcPkts++){//loop  through  all  counted  data  pkts 
ClearStatus ()  ; 

LStatusl->Caption  =  "Receiving  Test  Data" ; 
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//The  4th  and  5th  bytes  in  an  ACL  pkt  give  the  total 
//length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//to  compute  total  packet  size. 

tempi  =  (static_cast<unsigned  int> (* (pPkt+3) ) )  &  mask; //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+4) ) )  &  mask; //into  an  int  variable. 
temp2  =  temp2  «  8; 
pktSize  =  temp2  +  tempi  +  5; 

//*  IS  THIS  THE  FIRST  ACL  PACKET  OF  A  LARGE  L2CAP  PACKET?  * 
aclFlags  =  (*(pPkt+2)  &  flagMask);//  Extract  ACL  flags 

switch(aclFlags) { 
case  FIRST_PKT_P2P : 

//YES  THIS  IS  THE  FIRST  OF  MANY 

//Subtract  9  bytes  from  the  total  pkt  size 
//5  bytes  for  the  ACL  pkt  header  and  4  bytes 
//for  the  L2CAP  pkt  header. 
testDataReceived  =  pktSize  -  5  -  4; 

//Find  L2CAP  Pkt  Size 

tempi  =  (static_cast<unsigned  int> (* (pPkt+5) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+6) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 

12capPktSize  =  tempi  +  temp2;  //Size  of  exptected  12cap  pkt 

LStatus2->Caption  =  "L2CAP  Packet  Size:"; 

LStatus3->Caption  =  12capPktSize ; 
break; 

case  C0NT_PKT_P2P : 

//NO  THIS  IS  A  CONTINUING  PACKET  TO  ADD  TO  A  PREVIOUSLY 
//RECIEVED  L2CAP  FRAGMENT. 

//Subtract  only  the  5  bytes  for  the  ACL  pkt  header. 
testDataReceived  =  testDataReceived  +  pktSize  -  5; 
break; 

default : 

LTestStatus->Caption  =  "Unknown  ACL  Data  Packet  Flags"; 

if(*pPkt  ==  UART_EVENT_PACKET){//if  an  event  packet  was  recieved  store  it  for  processing  later 
//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

ClearStatus ()  ; 

LStatusl->Caption  =  "Event  Received  During  Test"; 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  &  mask)  +  3; 

FindEvent (pPkt) ; 

}//end  if 

}//end  switch  aclFlags 

//Finished  with  present  packet .. .move  pointer  to  next  data  packet 

pPkt  =  pPkt  +  pktSize; 

amtProcData  =  amtProcData  +  pktSize; 

pktSize  =  0; 


}//end  for 


LPktNum->Caption  =  curProcPkts; 


processedPkts  =  numPkts;  //  update  the  number  of  processed  packets 
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//WILL  THERE  BE  MORE  DATA  COMING? 

if (testDataReceived  <  12capPktSize){//more  data  is  coming 
do{ 

//If  there  is  a  segmented  packet  compute  the  amount  of  data  that  does  exist 
if (segmentedPkt) 

segSize  =  numBytesRead  -  amtProcData; 
else! 

segSize  =  0; 

LStatus2->Caption  =  " 

}//end  else 

pReadPt  =  inBuff  +  amtProcData  +  segSize;  //move  the  read  point  to  the  end  of  the  data  in  the  buffer 
buff Avail  =  inBuff Size  -  amtProcData;  //How  much  of  the  buffer  is  still  free 
ReadFile(Cl,  pReadPt,  buffAvail,  &newBytesRead,  &0VL) ;  //read  data  from  COMM  1 

//****  DEBUGING  CODE  *** 
if (newBytesRead  ==  0){ 
loopCount++; 

if(loopCount  ==  loopLimit) 
timeOut  =  true; 

BT_net->LTestStatus->Caption  =  "Waiting  for  data.  No  Bytes  Read"; 

}//end  if 

else! 

newBytesRead  =  newBytesRead  +  segSize;  //Add  segment  size  to  newBytesRead  so  that  a  complete  packet  is  sent  to  NumE 
segmentedPkt  =  NumDataPkts (pPkt ,  newBytesRead,  numPkts,  pLastPkt,  timeOut); 

//Does  a  partial  packet  exist  in  the  buffer 

numBytesRead  =  numBytesRead  +  newBytesRead  -  segSize;  //add  the  new  bytes  read  to  the  number  of  bytes  already  in  th 
numPkts  =  numPkts  +  processedPkts;  //add  the  new  number  of  packets  to  the  number  of  packets  already  in  the  buffer 
}//end  else 

}while (segmentedPkt  kk  ItimeOut);  //continue  loop  until  a  segmented  pkt  no  longer  exists 
}//end  if  more  data  is  coming 

}while ( (testDataReceived<12capPktSize)  kk  ItimeOut);  //Continue  loop  until  the  whole  Test  file  (L2CAP 
//pkt)  is  recieved  or  a  timeout  occurs. 

//****************************  PROCESS  RECIEVED  TEST  DATA  *************************************** 

if  ( (testDataReceived==12capPktSize)  I  I  timeOut)! 

//NO  MORE  DATA  IS  COMING  OR  A  TIMEOUT  HAS  OCCURED 

pPkt  =  inBuff ; //reset  the  pkt  pointer  to  point  to  the  beginning  of  the  data 

while(*pPkt  ==  UART_EVENT_PACKET){//make  sure  that  the  pointer  is  pointing  to  the  first  ACL  pkt 
//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  k  mask)  +  3; 
pPkt  =  pPkt  +  pktSize; 

}//end  while  (pPkt  ==  UART_EVENT_P ACKET ) 

if (localDevice . conductingTest)! 

//LOCAL  DEVICE  IS  CONDUCTING  THE  TEST 

//Stop  Timer.  The  LSB  of  the  L2CAP  CID  contains  a 
//0  for  a  small  file  and  a  1  for  a  large  file. 
fileType  =  static_cast<short> (* (pPkt+7) ) ; 
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//Read  the  processing  time  used  by  the  other  computer  (1st  and  2nd  data  bytes  in  the  test  data  pkt) 
tempi  =  (static_cast<unsigned  int> (* (pPkt+9) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+10) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 

t_proc  =  tempi  +  temp2;  //Processing  time  used  on  remote  computer 

if(t_proc  ==  TIME_OUT_REMQTE_COMP) {  //A  timeout  occured  on  remote  computer 

LTestStatus->Caption  =  "Timeout  occured  on  remote  computer"; 

cTest . endReceive (f ileType ,  t_proc,  errors);  //end  test 

}//end  if 

else  { 

if (timeOut) {  //A  timeout  occured  on  this  computer 

LTestStatus->Caption  =  "Timeout  occured  on  this  computer"; 

cTest . endReceive (f ileType ,  TIME_0UT_L0CAL_C0MP ,  errors);  //end  test 

}//end  if 

else! 

cTimer . startTimer () ; 

//STORE  RECIEVED  DATA 
storedL2capData  =  0; 

for(unsigned  int  b=0;  b<numPkts;  b++){  //loop  through  all  packets  and  save  them  for  retransmission 
while  (*pPkt  ==  UART_EVENT_PACKET) {  //make  sure  that  the  pointer  is  pointing  to  the  first  ACL  pkt 
//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  &  mask)  +  3; 
pPkt  =  pPkt  +  pktSize; 

}//end  while  (pPkt  ==  UART_EVENT_P ACKET ) 

//The  4th  and  5th  bytes  in  an  ACL  pkt  give  the  total 
//length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//to  compute  total  packet  size. 

tempi  =  (static_cast<unsigned  int> (* (pPkt+3) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+4) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 
pktSize  =  temp2  +  tempi  +  5; 

//STORE  THIS  DATA 

for  (n=0;  n<pktSize-5;  n++) 

testDataBuff [n+storedL2capData]  =  *(pPkt+n+5); 

storedL2capData  =  storedL2capData  +  pktSize  -  5;  //Account  for  ACL  pkt  header 
pPkt  =  pPkt  +  pktSize; 

}//end  for 

//ALL  DATA  HAS  BEEN  SAVED.. RESET  pPkt  and  pktSize 
pPkt  =  inBuff ; 
pktSize  =  0; 

//CHECK  FOR  ERRORS 

for (unsigned  int  k=6;  k<12capPktSize+4;  k++){ 

if (cTest . dataLong [k]  !=  testDataBuff  [k] )  //If  the  saved  test  data  does  not 

errors++;  //equal  the  transmitted  data  then  an 
}//end  for  //error  occured. 

t_proc  =  t_proc  +  static_cast<unsigned  int>(cTimer . stopTimer () *1000) ; 

cTest . endReceive (f ileType ,  static_cast<float>(t_proc)/1000,  errors);  //end  this  test 
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}//end  else 
}//end  else 

iiumTestsRan++ ; 

LCurTrans->Caption  =  numTestsRan; 

//IF  MORE  TESTS  NEED  TO  BE  RUN. . . 

//TRANSMIT  MORE  DATA 
if  (numTestsRan  <  numTestTrans) { 

TransmitTestData(slave [0] . connectHndl ,  fileType,  0); 

LTestStatus->Caption  =  "Transmit  next  pkt"; 

}//end  if 
else! 

readRssi  =  true; 
numTestsRan  =  0; 

LTestStatus->Caption  =  "Finished!"; 

MessageBox(0 ,  "Test  Finished",  0,  MB_0K) ; 

}//end  else 

}//end  if  local  device  conducting  test 
else! 

//LOCAL  DEVICE  IS  NOT  CONDUCTING  THE  TEST 
cTimer . startTimer () ; 

storedL2capData  =  0; 

for(unsigned  int  b=0;  bCnumPkts;  b++){  //loop  through  all  packets  and  save  them  for  retransmission 
while  (*pPkt  ==  UART_EVENT_PACKET) {  //make  sure  that  the  pointer  is  pointing  to  the  first  ACL  pkt 
//The  third  byte  in  an  event  pkt  gives  the  total 
//length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//to  compute  total  packet  size. 

pktSize  =  (static_cast<unsigned  int> (* (pPkt+2) )  &  mask)  +  3; 
pPkt  =  pPkt  +  pktSize; 

}//end  while  (pPkt  ==  UART_EVENT_P ACKET ) 

//The  4th  and  5th  bytes  in  an  ACL  pkt  give  the  total 
//length  of  the  data  (in  bytes)  contained  in  the  pkt. 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//to  compute  total  packet  size. 

tempi  =  (static_cast<unsigned  int> (* (pPkt+3) ) )  &  mask;  //Convert  2  separate  bytes 
temp2  =  (static_cast<unsigned  int> (* (pPkt+4) ) )  &  mask;  //into  an  int  variable. 
temp2  =  temp2  «  8; 
pktSize  =  temp2  +  tempi  +  5; 

//STORE  THIS  DATA 

for  (n=0;  n<pktSize-5;  n++) 

testDataBuff [n+storedL2capData]  =  *(pPkt+n+5); 

storedL2capData  =  storedL2capData  +  pktSize  -  5;  //Account  for  ACL  pkt  header 
pPkt  =  pPkt  +  pktSize; 

if (timeOut)  //If  a  timeout  has  occured  only  store  1st  ACL  pkt 
b  =  numPkt  s ; 

}//end  for 

//ALL  DATA  HAS  BEEN  PROCESSED .. RESET  pPkt  and  pktSize 
pPkt  =  inBuff ; 
pktSize  =  0; 


if(t_proc  ==  TIME_0UT_REM0TE_C0MP) {  //A  timeout  occured  on  remote  computer 
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LTestStatus->Caption  =  "Timeout  occured  on  remote  computer"; 
cTest . endReceive (f ileType ,  t_proc,  errors);  //end  test 
}//end  if 
else! 

if (timeQut)  //If  a  timeout  has  occured  set  t_proc  to  OxFFFF 

t_proc  =  TIME_0UT_REM0TE_C0MP ; 

else! 

if(t_proc  ==  0x5442){  //t_proc  still  contains  "BT"  this  is  the  first  transmission 
//convert  the  float  (seconds)  value  to  an  unsigned  int  (milliseconds)  value  for  transmission 
t_proc  =  static_cast<unsigned  int>  (cTimer .  stopTimerO  *1000)  ; 

}//end  if 

else!  //This  file  has  been  transmitted  before  add  to  the  past  t_proc 

//convert  the  float  (seconds)  value  to  an  unsigned  int  (milliseconds)  value  for  transmission 
t_proc  =  t_proc  +  static_cast<unsigned  int>(cTimer.  stopTimerO  *1000)  ; 

}//end  else 
}//end  else 
}//end  else 

Int2Char (t_proc ,  bytesOflnt); 

testDataBuf f  [4]  =  bytesOflnt  [0] ;  //The  first  4  bytes  of  the  test  data  are  the  L2CAP  header 
testDataBuf f [5]  =  bytesOflnt  [1] ;  //store  the  value  of  t_proc  in  bytes  5  and  6. 

/ /Retransmii 

if (localDevice .master)!  //Is  the  local  device  the  master? 

//Yes,  must  transfer  data  from  one  slave  to  the  other 

do{  //From  which  slave  was  data  just  received. 

if  (tempConnHndl  ==  slave [slavelndex] . connectHndl [0] ) 

slaveFound  =  true;  //Connection  Hndl  matchers 

else  //Slave  not  found  yet 

slavelndex++ ;  //keep  looking 

}while (! slaveFound  &&  (slavelndex<2) ) ; 

switch(slavelndex) { 

case  0:  //Slave  1  sent  the  test  data 
slavelndex  =  1;  //Transmit  data  to  slave  2 

//Retransmit  data 

if (timeOut)  //Let  the  transmit  test  function  know  if  a  timeout  occured 

TransmitTestData(slave [slavelndex] . connectHndl ,  RETRANSMIT,  2); 

else 

TransmitTestData(slave [slavelndex] .connectHndl,  RETRANSMIT,  12capPktSize) ; 
break; 

case  1:  //Slave  2  sent  the  test  data 
slavelndex  =  0;  //Transmit  data  to  slave  1 

//Retransmit  data 

if (timeOut)  //Let  the  transmit  test  function  know  if  a  timeout  occured 

TransmitTestData(slave [slavelndex] . connectHndl ,  RETRANSMIT,  2); 

else 

TransmitTestData(slave [slavelndex] .connectHndl,  RETRANSMIT,  12capPktSize) ; 
break; 

default:  //Don’t  know  who  sent  the  data 
MessageBox(0 ,  "Unknown  Connection  Handle",  0,  MB_0K) ; 

}//end  switch 
}//end  if 

else!  //Local  device  is  another  slave  retransmit  to  master 
if (timeQut)  //Let  the  transmit  test  function  know  if  a  timeout  occured 
TransmitTestData(slave  [0] . connectHndl ,  RETRANSMIT,  2); 
else 
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TransmitTestData(slave [0] . connectHndl ,  RETRANSMIT,  12capPktSize) ; 

}//end  else 

}//end  else  local  device  is  not  conducting  the  test 

//RESET  VARIABLES 
testDataReceived  =  0; 

12capPktSize  =  0; 
numPkts  =  0; 
timeOut  =  false; 

}//end  if  (testDataReceived  ==  12capPktSize) 
else! 

//SOMETHING  SCREWED  UP 

LTestStatus->Caption  =  "SOMETHING  SCREWED  UP:  Too  much  data  received"; 

}//end  else  someting  screwed  up 
break; 


default : 

LTestStatus->Caption  =  "Unknown  L2CAP  CID"; 

}//end  switch  L2CAP  CID  msb 
}//end  switch  UART  header 

//Finished  with  present  packet .. .move  pointer  to  next  data  packet 

pPkt  =  pPkt  +  pktSize; 

amtProcData  =  amtProcData  +  pktSize; 

pktSize  =  0; 

}//end  for 

//  IF  A  SEGMENTED  DATA  PACKET  EXISTS  MOVE  EXISTING  DATA 
//  TO  THE  BEGINING  OF  THE  BUFFER  AND  SET  THE  READ  POINT 
//  AT  THE  END  OF  THE  PARTIAL  DATA 

if (segmentedPkt) {  //The  last  packet  read  was  not  complete 
segSize  =  numBytesRead  -  amtProcData; 

for(unsigned  int  c=0;  c<segSize;  C++)  //Temporarily  store  incomplete  pkt 
tempAry[c]  =  * (pLastPkt+c) ; 

ResetBuffer (inBuff ,  inBuf fSize) ;  //Reset  inBuff 

for(unsigned  int  c=0;  c<segSize;  C++)  //Place  incomplete  pkt  in  the  front 
inBuf f  [c]  =  tempAry[c];  //of  inBuff 

pReadPt  =  inBuff  +  segSize;  //Set  the  Read  Point  pointer  to  the  end  of  the  incomplete  pkt 
buffAvail  =  inBuffSize  -  segSize;  //Adjust  the  buffer  size  to  reflect  the  portion  used 
//by  the  incomplete  pkt.  (Needed  for  reading  from  COM  1) 

}//end  if  segmentedPkt 

else!  //Last  packet  was  complete 
ResetBuffer (inBuff ,  inBuffSize);  //Reset  inBuff 
pReadPt  =  inBuff;  //Reset  Read  Point  pointer 
buffAvail  =  inBuffSize;  //Reset  available  buffer  size. 
segSize  =  0; 

}//end  else 

}//end  if  data  is  present 


//  IF  A  CONNECTION  EXISTS  READ  AND  RECEIVE  SIGNAL 
//  STRENGTH  (RSSI)  FOR  THE  EXISTING  LINKS. 


//###############  THIS  CODE  MUST  BE  EDITED  FOR  USE  WITH  MORE  THAN  2  DEVICES 
//RSSI 

if (readRssi&&( ! segmentedPkt) ) { 

if (slave [0] . connection  &&  localDevice . conductingTest) { 
if  (cycle'/, rssiFreq  ==  0){ 

pktSize  =  ReadRSSI (slave [0] . connectHndl ,  outBuff) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}  //end  if 
cycle++ ; 

}//end  if 

}//end  if  readRssi 

Timerl->Enabled  =  true;//Data  processing  complete .. .re-enable  timer 

} 

// - 

void  FindOpCode(char  *pBuff){ 

//*******  VARIABLES  ******* 

// -  Control  Variables 

unsigned  int  opCode,  mask  =  OxOOOOOOFF ; 

static  bool  inquiryFilter ;  //Used  to  determine  which  filter  needs  to  be  set 
// (connection  or  inquiry)  for  each  call  to  setEventFilter 

// -  Display  Variables  - 

char  opCodeDisp  [7]  =  {’0’,’x’},  tempOpCode [4] ; 
unsigned  int  x; 

// -  Temporary  Varialbes  - 

unsigned  int  tempi,  temp2; 

//  FIND  THE  OPCODE  AND  STORE  IT  IN  AN  INTEGER  VARIABLE 
//  FOR  USE  IN  A  SWITCH  STATEMENT.  THE  OPCODE  IS  CONTAINED 
//  IN  A  DIFFERENT  PART  OF  THE  EVENT  PACKET  FOR  A  COMMAND  COMPLETE 
//  EVENT  AND  A  COMMAND  STATUS  EVENT. 

if  (* (pBuf f +1)  ==  EV_COMMAND_COMPLETE) { 

tempi  =  static_cast<unsigned  int> (* (pBuf f +4) )  &  mask;  //mask  out  all  unwanted 
temp2  =  static_cast<unsigned  int> (* (pBuf f +5) )  &  mask;  //bytes. 
temp2  =  temp2«8;  //shift  the  msbyte  to  its  position 

opCode  =  tempi  +  temp2;  //combine  the  two  bytes  into  one  integer  variable 
}//end  if 

if  (* (pBuf f +1)  ==  EV_COMMAND_STATUS){ 

tempi  =  static_cast<unsigned  int>(* (pBuf f +5) )  &  mask;  //mask  out  all  unwanted 
temp2  =  static_cast<unsigned  int> (* (pBuf f +6) )  &  mask;  //bytes. 
temp2  =  temp2«8;  //shift  the  msbyte  to  its  position 

opCode  =  tempi  +  temp2;  //combine  the  two  bytes  unsigned  into  one  integer  variable 
}//end  if 

//  FIND  THE  RETURNED  OPCODE  AND  EXEUTE  ACCORDINGLY 


switch  (opCode) { 


//#######  NOTE:  1st  Parameter  in  command  complete  event  pkt  is  array  index  #6 
//#######  Status  parameter  for  command  status  event  is  array  index  #3 

//  THE  RESET  COMMAND  TRIGGERS  A  CHAIN  OF  SETUP  COMMANDS 
//  TO  PREPARE  THE  BT  MODULE  FOR  USE.  EACH  RESPECTIVE 
//  COMMAND  COMPLETE  EVENT  LEADS  TO  THE  EXECUTION  OF  THE 
//  NEXT  COMMAND  IN  THE  CHAIN  ENDING  WITH  "WRITE  PAGE 
//  TIMEOUT"  THE  COMMAND  COMPLETE  EVENTS  FOR  ALL  OF  THE 
//  SETUP  COMMMANDS  ARE  LISTED  HERE  IN  THIER  ORDER  OF  EXECUTION 
//  BEGINING  WITH  THE  RESET  COMMAND. 

// -  RESET  - 

case  HCI_RESET : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
if  (*(pBuff+6)  ==  0){  //If  reset  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Device  Reset"; 

//ISSUE  NEXT  SETUP  COMMAND 
pktSize  =  ReadBD_ADDR(outBuff ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called 
inquiryFilter  =  false; 

}//end  if 

else  {  //If  host  buffer  size  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Reset  FAILED"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 


break; 

// -  READ  BLUETOOTH  DEVICE  ADDRESS  - 

case  HCI_READ_BD_ADDR: 

//Extract  the  BD  ADDR  parameter  and  convert  it  to  a  string  of 
//ASCII  characters  for  display  to  the  user. 

for  (unsigned  int  n=0;  n<6;  n++)  //Extract  6  byte  address  from 
localDevice . bd_addr [n]  =  * (pBuf f +7+n) ; //the  event  packet 

//Convert  each  nibble  of  the  address  to  an  ASCII 

//char  representative  of  the  hex  digit  contained  in  each  nibble, 
for  (unsigned  int  n=0;  n<12;  n=n+2){ 

x=n/2 ; 

nibbles (localDevice . bd_addr  [5-x] ,  localDevice . addrDisp [n+2] ,  localDevice . addrDisp  [n+3] ) 
}//end  for 

localDevice . addrDisp  [14]  =  NULL;  //Append  a  null  for  string  display. 
BT_net->LBD_ADDR_ld->Caption  =  localDevice . addrDisp ; 

//ISSUE  NEXT  SETUP  COMMAND 
pktSize  =  ReadBuf f erSize (outBuf f ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 
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break; 

// - READ  BUFFER  SIZE - 

case  HCI_READ_BUFFER_SIZE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  OH  //If  read  buffer  size  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Read  Buffer  Size  Complete"; 

//EXTRACT  DATA  FROM  PACKET 
//ACL  buff  size 

tempi  =  static_cast<unsigned  int>(* (pBuf f +7) )  &  mask; 
temp2  =  static_cast<unsigned  int>(* (pBuf f +8) )  &  mask; 
temp2  =  temp2«8; 

hostCtrl . sizeACLBuf f  =  tempi  +  temp2; 

//SCO  buff  size 

hostCtrl . sizeSCOBuff  =  *(pBuff+9); 

//number  of  ACL  data  buffers 

tempi  =  static_cast<unsigned  int>(*(pBuff+10))  &  mask; 
temp2  =  static_cast<unsigned  int>(*(pBuff+ll))  &  mask; 
temp2  =  temp2«8; 

hostCtrl .numACLBuff  =  tempi  +  temp2; 

//number  of  ACL  data  buffers 

tempi  =  static_cast<unsigned  int>(*(pBuff+12))  &  mask; 
temp2  =  static_cast<unsigned  int>(*(pBuff+13))  &  mask; 
temp2  =  temp2«8; 

hostCtrl .numSCOBuff  =  tempi  +  temp2; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  HostBuf f erSize (fthost ,  outBuff); 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

/♦//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  SetEventFilter (INQUIRY_RESULT,  0,  outBuff ) ;//set  inquiry  result  filter 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called. 
inquiryFilter  =  true;*/ 

}//end  if 

else  {  //If  read  buffer  size  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Read  Buffer  Size  FAILED"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 


break; 

// - HOST  BUFFER  SIZE - 

case  HCI_HOST_BUFFER_SIZE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  OH  //If  host  buffer  size  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Host  Buffer  Size  Sent"; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  SetEventFilter (INQUIRY_RESULT,  0,  outBuff);  //set  inquiry  result  filter 
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WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &OVL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called. 
inquiryFilter  =  true; 

}//end  if 

else  {  //If  host  buffer  size  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Host  Buffer  Size  FAILED"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 


break; 

// -  SET  EVENT  FILTER  - 

case  HCI_SET_EVENT_FILTER : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  set  event  filter  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Event  Filter  Set"; 

//ISSUE  NEXT  SETUP  COMMAND  (depends  on  which  filter  was  last  set) 

if  (inquiryFilter) {  //was  the  inquiry  filter  the  last  one  set? 

pktSize  =  WriteScanEnable(3,  outBuff);  //Setting  WSE  to  3  enables  all  scans 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if  inquiry  filter 

else!  //the  connection  filter  was  the  last  filter  set 

pktSize  =  WriteConnAcceptTimeout (0x2000,  outBuff);  //0x2000*625us  =  5.12s 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  else  inquiry  filter 
}//end  if 

else  {  //If  set  event  filter  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Set  Event  Filter  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 


break; 

// -  WRITE  SCAN  ENABLE  - 

case  HCI_WRITE_SCAN_ENABLE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
if  (*(pBuff+6)  ==  0){  //If  write  scan  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Scan  Enable  Complete"; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  WriteVoiceSetting (0x0060,  outBuff);  //0x0060  sets  16bit  2’s  complement  input  type 
WriteFile  (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if 

else  {  //If  write  scan  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Scan  Enable  FAILED"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 
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break; 

// -  WRITE  VOICE  SETTING  - 

case  HCI_WRITE_VOICE_SETTING : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  write  voice  setting  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Voice  Setting  Complete"; 

//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  WriteAuthEnable(OxOO,  outBuff);  //OxOO  Disables  authentication 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if 

else  {  //If  write  voice  setting  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Voice  Setting  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 


break; 

// - WRITE  AUTHENTICATE  ENABLE - 

case  HCI_WRITE_AUTHENTICATION_ENABLE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  OH  //If  write  authentication  enable  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Authentication  Enable  Complete"; 
//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  SetEventFilter (CONNECTION_SETUP ,  AA_ON_RS_DISABLED ,  outBuff); 
//set  connection  setup  filter  and  auto  accept  off 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called. 
inquiryFilter  =  false; 


}//end  if 

else  {  //If  write  authentication  enable  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Authentication  Enable  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 


break; 


// - SET  UART  BAUD  RATE - 

case  HCI_SET_UART_BAUD_RATE : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
if  (*(pBuff+6)  ==  OH  //If  set  uart  baud  rate  sucessful 
ClearStatus  () ; 

BT_net->LStatusl->Caption  =  "UART  Baud  Rate  Set  to  460.8kbps"; 

//Set  Baud  Rate  on  Comm  1  to  460.8kbps 
myDCB . BaudRate  =  CBR_115200; 


SetCommState (Cl ,  ftmyDCB) ; 
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//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  SetEventFilter (CONNECTION_SETUP ,  AA_ON_RS_DISABLED ,  out Buff ) ; 
//set  connection  setup  filter  and  auto  accept  off 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//Because  the  SetEventFilter  command  will  be  called  twice  durring 
//setup  it  is  necessary  to  keep  track  of  which  filter  is  being  set 
//each  time  this  command  is  called. 
inquiryFilter  =  false; 

}//end  if 

else  {  //If  set  uart  baud  rate  failed 
ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Set  UART  Baud  Rate  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; 

}//end  else 
break; 


// -  WRITE  CONNECTION  ACCEPT  TIMOUT  - 

case  HCI_WRITE_CONNECTION_ACCEPT_TIMEOUT : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  write  connection  accept  timeout  sucessful 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Connection  Accept  Timeout  Written"; 
//ISSUE  NEXT  SETUP  COMMAND 

pktSize  =  WritePageTimeout (0x3000 ,  outBuff);  //0x3000*625us  =  7.68s 
WriteFile  (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  if 

else  {  //If  write  connection  accept  timeout  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Connection  Accept  Timeout  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 


break; 

// - WRITE  PAGE  TIMEOUT  (END  OF  SETUP  COMMANDS) - 

case  HCI_WRITE_PAGE_TIMEOUT : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  write  page  timeout  sucessfull 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Page  Timeout  Written"; 

//If  execution  makes  it  to  this  point  the  setup  is  successful. 
BT_net->LStatus2->Caption  =  "Setup  Completed  Successfully" ; 
}//end  if 

else  {  //If  write  connection  accept  timeout  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Write  Page  Timeout  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 


break; 

// -  INQUIRY  STATUS 

case  HCI_INQUIRY : 


//Only  a  Command  Status  event  will  reach  this  block  of  code 
//so  check  status  at  array  index  #3 
if  (*(pBuff+3)  ==  0){ 

ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "Conducting  Inquiry"; 

}//end  if 

else{ 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Inquiry  Command  Failed"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +3) ) ; 

}//end  else 
break; 

// -  CREATE  CONNECTION  STATUS  - 

case  HCI_CREATE_CONNECTION : 

//Only  a  Command  Status  event  will  reach  this  block  of  code 
//so  check  status  at  array  index  #3 
if  (*(pBuff+3)  ==  0){ 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Creating  Connection"; 

}//end  if 

else{ 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Create  Connection  Command  Failed"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +3) ) ; 

}//end  else 
break; 

// -  ACCEPT  CONNECTIO  REQUEST  STATUS  (NOT  NECCESSARY  BECAUSE  THE  AUTO  ACCEPT 

//  -  FLAG  IS  CURRENTLY  SET  ON  THE  CONNECTION  FILTER  - 

case  HCI_ACCEPT_CONNECTION_REQUEST : 

//Only  a  Command  Status  event  will  reach  this  block  of  code 
//so  check  status  at  array  index  #3 
if  (*(pBuff+3)  ==  0){ 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Accepting  Connection  Request"; 

}//end  if 

else{ 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Accept  Connection  Request  Command  Failed"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +3) ) ; 

}//end  else 
break; 

// -  WRITE  LINK  SUPERVISION  TIMOUT  - 

case  HCI_WRITE_LINK_SUPERVISION_TIMEOUT : 

/******INSERT  CODE  HERE*****/ 
break; 

// -  READ  TRANSMIT  POWER  LEVEL  - 

case  HCI_READ_TRANSMIT_POWER_ LEVEL : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 

if  (*(pBuff+6)  ==  0){  //If  read  transmit  power  level  sucessful 
//Display  Tx  Power  Level 

//BT_net->LTxPower->Caption  =  (static_cast<unsigned  int>(* (pBuf f +9) ) )  &  mask; 


//###########  THIS  CODE  MUST  BE  EDITED  FOR  USE  WTIH  MORE  THAN  2  DEVICES 
//ISSUE  READ  RECIEVE  SIGNAL  STRENGTH  INDICATOR  (RSSI)  COMMAND 
pktSize  =  ReadRSSI (slave [0] . connectHndl ,  outBuff) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &OVL) ; 

}//end  if 

else  {  //If  write  connection  accept  timeout  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Read  Transmit  Power  Level  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 
break; 

// -  READ  RECIEVE  SIGNAL  STRENGTH  INDICATOR  - 

case  HCI_READ_RSSI : 

//WHAT  IS  THE  STATUS  OF  THE  COMMAND 
if  (*(pBuff+6)  ==  0){  //If  read  RSSI  sucessful 

//Display  Receive  signal  strength 

localDevice . rssi  =  static_cast<short> (* (pBuf f +9) ) ; 
BT_net->LRSSIl->Caption  =  localDevice . rssi ; 

}//end  if 

else  {  //If  read  RSSI  failed 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Read  RSSI  FAILED"; 
BT_net->LStatus2->Caption  =  Error (* (pBuf f +6) ) ; ; 

}//end  else 
break; 

// - 


case  ZER0_0PC0DE: 

//Do  nothing 


break; 


default : 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Unknown  OpCode"; 

//Convert  each  nibble  of  the  opcode  to  an  ASCII 

//char  representative  of  the  hex  digit  contained  in  each  nibble. 
Int2Char (opCode,  tempOpCode) ; 

nibbles (tempOpCode  [1] ,  opCodeDisp [2] ,  opCodeDisp [3] ) ; 

nibbles (tempOpCode [0] ,  opCodeDisp  [4] ,  opCodeDisp  [5] )  ; 
BT_net->LStatus2->Caption  =  opCodeDisp; 

}//end  switch 
}//end  function 

// - 

void  FindEvent (char  *pBuff){ 

//********  VARIABLES  ******** 

// -  Control  Variables  - 

char  evt ,  tempConnHndl ,  curConnHndl  [2] ; 
unsigned  char  tempBD_ADDR[6] ; 

unsigned  int  x  =  0,  numHndls  =  0,  numResp  =  0; 

unsigned  int  mask  =  OxOOOOOOFF,  matchingBytes  =  0,  slavelndex  =  0; 
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bool  slaveFound  =  false; 
static  unsigned  int  existingSlaves  =  0; 

// -  Display  Variables  - 

//char  addrDisp[15]  =  {’0’,’x’}; 

char  connectHndlDisp  [7]  =  -[’0’,’x’},  evtDisp  [5]  ={ ’0  ’  , ’x’ } ; 
unsigned  int  numCompPkts,  errorCode; 

evt=* (pBuf f+1) ; 

//  FIND  THE  RECEIVED  EVENT  AND  EXECUTE  ACCORDINGLY 

switch  (evt){ 

//######  NOTE:  1st  Parameter  in  event  pkt  is  array  index  #3 

case  EV_C0MMAND_C0MPLETE : 

FindOpCode (pBuf f ) ; 
break; 

case  EV_COMMAND_STATUS : 

FindOpCode (pBuff) ; 
break; 

case  EV_INQUIRY_COMPLETE : 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Inquiry  Complete"; 
if  (* (pBuff +3)  ==  0) 

BT_net->LStatus2->Caption  =  "Completed  Sucessfully" ; 
else 

BT_net->LStatus2->Caption  =  Error (* (pBuff +3) ) ; 
break; 

case  EV_INQUIRY_RESULT : 

//######  NOTE:  MUST  ADD  COUNTER  TO  COUNT  RESPONSES.  ALL  RESPONDING  DEVICES  MAY  NOT  BE 
//######  CONTAINED  IN  ONE  EVENT  BUT  MAY  CREATE  SEVERAL  EVENTS  THEREFORE  YOU  NEED 

//######  TO  KNOW  HOW  MANY  DEVICES  HAVE  PREVIOUSLY  RESPONED  AND  ARE  ALREADY  ACCOUNTED  FOR. 

numResp  =  (static_cast<unsigned  int> (* (pBuf f +3) ) )  &  mask; 

BT_net->LInqRes->Caption  =  numResp; 

//Read  data  for  each  of  the  slaves  that  responded 
for  (unsigned  int  n=0;  n<numResp;  n++){ 

//Read  the  BD_ADDR  of  the  device  with  which 
//a  connection  was  just  created, 
for  (unsigned  int  c=0;  c<6;  C++) 
tempBD_ADDR [c]  =  *(pBuff+4+(6*n)+c) ; 

do{  //With  which  slave  was  a  connection  just  created, 
for  (unsigned  int  c=0;  c<6;  c++){ 

if  (tempBD_ADDR[c]  ==  slave [slavelndex] .bd_addr  [c] ) 
matchingBytes++ ; 

}//end  for 
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if  (matchingBytes  ==  6)  //All  address  bytes  match 

slaveFound  =  true; 

else!  //Slave  not  found  yet 

slavelndex++ ;  //keep  looking 

matchingBytes  =  0; 

}//end  else 

}while  (! slaveFound  &&  (slavelndex<7) ) ; 
if  (! slaveFound) {  //A  new  slave  responded 

slavelndex  =  existingSlaves ;  //Set  the  slave  index  to  the  number  of  existing  slaves 
//in  order  to  add  the  new  slave  that  responeded  to  the 
//end  of  the  array  of  slaves. 

//Load  the  Bluetooth  device  address  for  each  device  that  responded 
//into  the  bd_addr  array  for  each  of  the  slave  structures  (up  to  7 
//slaves  possible)  and  other  device  specific  data  using  nested  for  loops 
for  (unsigned  int  c=0;  c<6;  C++) 

slave [slavelndex] .bd_addr [c]  =  * (pBuff+4+(6*n)+c) ; 
slave [slavelndex] .pgScnRepMode  =  *(pBuff+4+(6*numResp)+n) ; 
slave [slavelndex] .pgScnPerMode  =  *(pBuff+4+(7*numResp)+n) ; 
slave  [slavelndex] .pgScnMode  =  *(pBuff+4+(8*numResp)+n) ; 
for  (unsigned  int  c=0;  c<3;  C++) 

slave [slavelndex] . deviceClass [c]  =  *(pBuff+4+(9*numResp)+(3*n)+c) ; 
for  (unsigned  int  c=0;  c<3;  C++) 

slave [slavelndex] . clkOff set [c]  =  *(pBuff+4+(12*numResp)+(2*n)+c) ; 

//Convert  each  nibble  of  the  address  to  an  ASCII 
//char  representative  of  the  hex  digit  contained  in  each  nibble, 
for  (unsigned  int  c=0;  c<12;  c=c+2){ 
x= c/2 ; 

nibbles (slave [slavelndex] .bd_addr [5-x] ,  slave [slavelndex] . addrDisp  [c+2] ,  slave [slavelndex] . addrDisp [c+3] ) ; 
}//end  for 

slave [slavelndex] . addrDisp [14]  =  NULL;  //Append  a  null  for  string  display. 

existingSlaves++;  //increment  the  number  of  existing  slaves 
}//end  if  slave  not  found 
}//end  for 

//****  These  following  lines  of  code  are  for  only  a  three  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  three  devices 

BT_net->LBD_ADDR_rdl->Caption  =  slave [0] . addrDisp; 

BT_net->LBD_ADDR_rd2->Caption  =  slave  [1] . addrDisp; 
break; 

case  EV_C0NNECTI0N_C0MPLETE : 

//****  This  Code  is  for  connecting  only  two  computers 
//****  This  must  be  modified  before  attempting  to  use  with 
//****  more  than  two  computers  in  a  piconet 


if  (*(pBuff+3)  ==  0){ 
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ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Connection  Completed"; 

BT_net->LStatus2->Caption  =  "Successfully"; 

if (localDevice .master)!  //if  the  local  device  is  the  master  there  may  be  more  than  one 
//remote  slave 

//Read  the  BD_ADDR  of  the  device  with  which 
//a  connection  was  just  created, 
for  (unsigned  int  n=0;  n<6;  n++) 
tempBD_ADDR [n]  =  * (pBuff +6+n) ; 

do!  //With  which  slave  was  a  connection  just  created, 
for  (unsigned  int  n=0;  n<6;  n++)! 

if  (tempBD_ADDR[n]  ==  slave  [slavelndex] . bd_addr  [n] ) 
matchingBytes++ ; 

}//end  for 

if  (matchingBytes  ==  6)  //All  address  bytes  match 

slaveFound  =  true; 

else!  //Slave  not  found  yet 

slavelndex++ ;  //keep  looking 

matchingBytes  =  0; 

}//end  else 

}while  (! slaveFound  &&  (slavelndex<7) ) ; 

}//end  if 
else 

slavelndex  =  0; 

//Load  the  information  recieved  about  the 
//remote  device  into  a  BT_DEVICE  structure 

slave [slavelndex] . connection  =  true;  //Yes  a  connection  exists 

slave [slavelndex] . connectHndl [0]  =  * (pBuff +4); 
slave [slavelndex] . connectHndl [1]  =  * (pBuff +5); 
slave [slavelndex] . linkType  =  * (pBuff +12); 
slave  [slavelndex] . encryptMode  =  * (pBuff +13); 

//Inform  user  of  the  type  of  link  established 
if  (slave [slavelndex] . linkType  ==  ACL_LINK) 

BT_net->LLinkType->Caption  =  "ACL"; 
if  (slave [slavelndex] . linkType  ==  SC0_LINK) 

BT_net->LLinkType->Caption  =  "SCO"; 

//Convert  each  nibble  of  the  Connection  Handle  to  an  ASCII 
//char  representative  of  the  hex  digit  contained  in  each  nibble, 
for  (unsigned  int  n=0;  n<4;  n=n+2)! 
x=n/2 ; 

nibbles (slave [slavelndex] . connectHndl  [1-x] ,  connectHndlDisp  [n+2] ,  connectHndlDisp  [n+3] ) ; 

}//end  for 

connectHndlDisp [6]  =  NULL;  //Append  a  null  for  string  display. 

switch  (slavelndex)!  //Display  data  in  the  correct  box. 
case  0: 

BT_net->LConnectHndll->Caption  =  connectHndlDisp; 

break; 

case  1 : 

BT_net->LConnectHndl2->Caption  =  connectHndlDisp; 

break; 

default : 

ClearStatus () ; 
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BT_net->LStatusl->Caption  =  "Unknown  Slave"; 

}//end  switch 

}//end  if 
else! 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Connection  Failed"; 

BT_net->LStatus2->Caption  =  Error (* (pBuf f +3) ) ; 

}//end  else 

break; 

case  EV_NUM_COMPLETED_PACKETS : 

//####  NOTE:  THIS  CODE  IS  WRITTEN  FOR  A  SINGLE  POINT  TO  POINT  CONNECTION  WHEN  EDITING 
//####  CODE  TO  HANDLE  SEVERAL  DEVICES  THE  CONNECTION  HANDLES  RETURNED  MAY  NEED 
//####  TO  BE  CHECKED  AND  COMPARED. 

//BEGIN  EXTRACTING  DATA  FROM  PACKET 

numHndls  =  *(pBuff+3);  //number  of  connection  handles  returned 
if(numHndls  >  1){ 

//Because  of  the  nature  of  this  test  program  (transmit .. .wait  for  remote 
//computer  to  process  data  then  re-transmit ...  there  should  be  no  more  than 
//one  connection  handle  returned  from  a  Number  of  Completed  Packets  event. 

MessageBox(0 ,  "ERROR:  More  than  1  connection  handle\nreturned  in  NUM_COMP_PKTS  event", 0  ,  MB_0K) ; 

}//end  if 

else-C 

curConnHndl [0]  =  * (pBuf f +4) ;  //Save  the  Connection  handle  of  the  recently  completed  pkts 
curConnHndl  [1]  =  *  (pBuff +5)  ;  //and  pass  it  to  the  TransmitTestDataO  function. 
numCompPkts  =  * (pBuff +6);  //Only  need  to  read  LSB  of  comp  ACL  pkts  because  the  device  buffer 
//only  holds  10  pkts 

if (transmitlnProgress)l  //If  there  is  a  transmit  in  progress  continue  with  it 
TransmitTestData(curConnHndl ,  C0NTINUE_TRANSMISSI0N ,  numCompPkts) ; 

}//end  if 
}//end  else 
break; 

case  EV_DATA_BUFFER_0VERFL0W : 

ClearStatus ()  ; 

BT_net->LStatusl->Caption  =  "DATA  BUFFER  OVERFLOW"; 
break; 

case  EV_DISC0NNECTI0N_C0MPLETE : 
tempConnHndl  =  * (pBuff +4); 

do{  //From  which  slave  was  data  just  received. 

if  (tempConnHndl  ==  slave [slavelndex] . connectHndl  [0] ) 

slaveFound  =  true;  //Connection  Hndl  matchers 

else  //Slave  not  found  yet 

slavelndex++ ;  //keep  looking 

}while (! slaveFound  &&  (slavelndex<2) ) ; 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Connection  Terminated"; 
switch(slavelndex) { 
case  0:  //Slave  1  was  disconnected 
BT_net->LStatus2->Caption  =  "Slave  1"; 

BT_net->LConnectHndll->Caption  =  "  " ; 
break; 
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case  1:  //Slave  2  was  disconnected 
BT_net->LStatus2->Caption  =  "Slave  2"; 

BT_net->LConnectHndl2->Caption  =  "  " ; 

break; 

default : 

BT_net->LStatus2->Caption  =  "Unknown  Connection  Handle"; 

}//end  switch 

slave [slavelndex] . connection  =  false; 
break; 

case  EV_MAX_SLOTS_CHANGE : 

BT_net->LStatus3->Caption  =  "Max  LMP  Slots  Change"; 
break; 

default : 

ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Unknown  Event"; 

//Convert  each  nibble  of  the  event  code  to  an  ASCII 

//char  representative  of  the  hex  digit  contained  in  each  nibble. 
nibbles(evt,  evtDisp[2],  evtDisp[3]); 

BT_net->LStatus2->Caption  =  evtDisp; 

}//end  switch 
}//end  function 

// - 

void  ResetBuffer (char  buf f  [] ,  DWORD  buffSize){ 
for  (unsigned  int  n=0;  n<buffSize;  n++) 
buff [n]  =  NULL; 

}//end  function 

// - 

bool  NumDataPkts (char  buf f  [] ,  DWORD  numBytesRead,  DWORD  &numPkts,  char  *pLastPkt ,  bool  &dataError){ 
DWORD  paramLength  =  0,  availBuff  =  0; 
bool  moreData  =  true,  pktSeg  =  false; 
unsigned  int  tempi,  temp2,  mask  =  OxOOOOOOFF ; 
unsigned  int  totalData  =  0; 

numPkts  =  0; 
pLastPkt  =  buff; 

while (moreData) {//while  unaccounted  for  data  exists  do.... 
switch(*pLastPkt){//what  type  of  data  is  this  packet? 

case  UART_EVENT_PACKET : 

//The  third  byte  (2nd  array  element)  in  an  event  pkt  gives 
//the  total  length  (in  bytes  of  the  parameters).  Add  this 
//number  plus  3  (to  account  for  the  first  3  bytes) 

//plus  current  amount  of  data  to  compute  total  data  present. 

paramLength  =  static_cast<unsigned  int> (* (pLastPkt+2) )  &  mask; 

totalData  =  totalData  +  3  +  paramLength; 

numPkts++; 

break; 

case  UART_ACL_DATA_PACKET : 

//The  4th  and  5th  bytes  (3rd  and  4th  array  elemetnts)  in  an  ACL  pkt 


//give  the  total  length  of  the  data  (in  bytes)  contained  in  the  pkt . 

//Add  this  number  plus  5  (to  account  for  the  first  5  bytes) 

//plus  current  amount  of  data  to  compute  total  data  present. 

tempi  =  (static_cast<unsigned  int> (* (pLastPkt+3) ) )  &  mask;  //Convet  2  separate  bytes 

temp2  =  (static_cast<unsigned  int> (* (pLastPkt+4) ) )&  mask;  //into  an  int  variable. 

temp2  =  temp2  «  8; 

paramLength  =  temp2  +  tempi ; 

totalData  =  totalData  +  5  +  paramLength; 

numPkts++; 

break; 

default:  //Unrecognized  pkt  header .. .Error  in  received  data 
moreData  =  false; 
dataError  =  true; 
numPkts  =  numPkts+1; 

BT_net->LStatus2->Caption  =  "Error  in  received  data"; 
do{ 

//Clear  the  input  buffer 

//The  data  is  useless  since  it  contained  an  error 

availBuff  =  inBuffSize  -  numBytesRead; 
ReadFile(Cl,  pLastPkt,  availBuff,  fcnumBytesRead,  &0VL);//read  data  from  COMM  1 
}while (numBytesRead  >  0); 

return  false; 


}//end  switch 

if  (numBytesRead  ==  totalData)  { 
moreData  =  false; //All  data  accounted  for 
pktSeg  =  false; 

}//end  if 
else{//lst  else 

if  (numBytesRead  <  totalData) {//Some  expected  data  is  missing 
moreData  =  false;  //must  read  buffer  again. 
pktSeg  =  true ; 

numPkts  =  numPkts  -  1;  //Last  pkt  was  a  pkt  segment. . .do  not  count  it 
BT_net->LStatus2->Caption  =  "SEGMENTED  PACKET"; 

}//end  if  numBytesReadCtotalData 
else  {//2nd  else 
pLastPkt  =  buff; 

pLastPkt  =  pLastPkt  +  totalData;  //More  data  remaining  to  be  counted. 

}//end  2nd  else 
}//end  1st  else 
}//end  while 
return  pktSeg; 

}//end  function 

// - 

void  _ fastcall  TBT_net : : BInquiryClick(TObject  *Sender){ 

char  inqDuration  =  48;  //=  48*1. 28s  =  61.44s 

pktSize  =  Inquiry (inqDuration,  2,  outBuff);  //Returns  after  2  inquiries  are  received. 
WriteFile(Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

} 

// - 


void  _ fastcall  TBT_net : : BBeginTestClick(TObject  *Sender){ 
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//TEST  SETUP 
AnsiString  sDist; 
short  sDistSize; 
char  dist[15]  =  {NULL}; 

//Assign  the  value  entered  by  the  user  into  the  Transmission  Test  class  "cTest" 

sDist  =  CBDist->Text ; 

sDistSize  =  sDist . Length () ; 

for  (short  c=l;  c<=sDistSize ;  C++) 

dist[c-l]  =  sDist  [c]  ; 

dist [sDistSize]  =  NULL; 

LStatus2->Caption  =  dist; 

cTest . setDistance (dist ,  sDistSize) ; 

AnsiString  sTop; 

//Assign  the  value  entered  by  the  user  into  the  Transmission  Test  class  "cTest" 
sTop  =  CBTopology->Text ; 
cTest . setTopology (sTop  [1] ) ; 

LStatus2->Caption  =  sTop[l]; 

//BEGIN  TEST 
cTest  .newTestO  ; 

cTest . setLinkState (localDevice . addrDisp,  slave  [0] .addrDisp,  localDevice . rssi) ; 
readRssi  =  false; 

//Begin  by  transmitting  the  small  file 
TransmitTestData(slave [0] . connectHndl ,  SMALL_FILE,  0); 

} 

// - 

void  _ fastcall  TBT_net : : BSendClick(TObject  *Sender){ 

DWORD  dataLength; 

AnsiString  input; 

unsigned  int  inputSize,  messageRecipient ; 

if  (! localDevice .master) 
messageRecipient  =  0; 
else 

messageRecipient  =  CBSlaveSelect->ItemIndex;  //Who  do  you  want  to  sent  this  message  to? 
if  (messageRecipient  ==  -1){ 

//No  slave  was  selected  to  recieve  the  message 

MessageBox(0 ,  "Please  select  a  slave  to  receive  this  message.",  0,  MB_0K) ; 

}//end  if 
else{ 

//Send  the  message  to  the  selected  slave 
input  =  Message->Text ; 

Message->Text  =  //Reset  message  block 
inputSize  =  input . Length () ; 
dataLength  =  inputSize  +  4; 

for  (unsigned  int  c  =  1;  c  <=  inputSize;  C++) 
outBuff[c+3]  =  input  [c]  ; 

//*****  Adding  L2CAP  4  byte  header  ***** 

//The  first  two  bytes  of  the  header  are  the  L2CAP  Packet  length 
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//(i.e.  The  length  of  data  to  be  transmitted  may  be  greater  than  the  HCI 
//packet  lenght) 

//The  second  two  bytes  of  the  header  is  the  Channel  ID  (CID)  and  can 
//range  from  0x0040  to  OxFFFF.  For  message  traffic  use  0x0300. 

//***N0TE:  Message  is  assumed  to  be  <=  255  bytes  long 

outBuff[0]  =  static_cast<char>(inputSize) ;  //L2CAP  pkt  length  lsb 
outBuff[l]  =  0x00;  //L2CAP  pkt  length  msb 
outBuf f [2]  =  0x00;  //CID  lsb 
outBuff[3]  =  0x03;  //CID  msb 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 

pktSize  =  SendACLPkt (slave  [messageRecipient] . connectHndl ,  dataLength,  FIRST_PKT_P2P ,  outBuff); 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

}//end  else 

} 

// - 

void  _ fastcall  TBT_net : : BResetClick(T0bject  *Sender){ 

//RESET  BT  MODULE 
pktSize  =  Reset (outBuf f ) ; 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

//RESET  CONNECTION  C0NRT0L  VAR 
for  (unsigned  int  n=0;  n<7 ;  n++) 
connection  [n]  =  0; 

//RESET  DISPLAY 
ResetDisplay () ; 

} 

// - 

void  _ fastcall  TBT_net : : BConnectlClick(T0bject  *Sender){ 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 

pktSize  =  CreateConnection(&slave  [0] ,  localDevice .pktType ,  outBuff); 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

} 

// - 

void  _ fastcall  TBT_net : : CBControlCloseUp(T0bject  *Sender){ 

localDevice .master  =  CBControl->ItemIndex ; 

if (localDevice .master) {//if  the  local  device  will  be  the  master... 

//buttons  and  comboboxes 
BInquiry->Enabled  =  true ; 

BConnectl->Enabled  =  true; 

BConnect2->Enabled  =  true; 


CBPktType->Enabled  =  true; 
CBSlaveSelect->Enabled  =  true; 
}//end  if 
else{ 

//buttons  and  comboboxes 
BInquiry->Enabled  =  false; 
BConnectl->Enabled  =  false; 
BConnect2->Enabled  =  false; 
CBPktType->Enabled  =  false; 
CBSlaveSelect->Enabled  =  false; 
}//end  else 

} 

// - 


void  _ fastcall  TBT_net : : CBPktTypeCloseUp(TObject  *Sender){ 

unsigned  int  pktRef ; 

pktRef  =  CBPktType->ItemIndex; 

//Assign  the  value  entered  by  the  user  into  the  Transmission  Test  class  "cTest" 
swit ch (pktRef ) { 
case  0: 

localDevice .pktType  =  DM1; 
cTest . setPktType (DM1) ; 
break; 
case  1 : 

localDevice .pktType  =  DH1; 
cTest . setPktType (DH1) ; 
break; 
case  2: 

localDevice .pktType  =  DM3; 
cTest . setPktType (DM3) ; 
break; 
case  3: 

localDevice .pktType  =  DH3; 
cTest . setPktType (DH3) ; 
break; 
case  4: 

localDevice .pktType  =  DM5; 
cTest . setPktType (DM5) ; 
break; 
case  5: 

localDevice .pktType  =  DH5; 
cTest . setPktType  (DH5) ; 

}//end  switch 

//Disconnect  all  current  connections, 
for  (unsigned  int  c=0;  c<7 ;  c++){ 
if  (slave [c] . connection  &&  localDevice .master) { 
slave  [c] . connection  =  false; 

Disconnect ing() ; 

LStatusl->Caption  =  "Disconnecting" ; 

pktSize  =  Disconnect (slave  [c] . connectHndl ,  0x13,  outBuff ) ;  //user  ended  connect 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 
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}//end  if 
else 

c  =  7;  //If  no  connection  exists  end  loop  (connections  are  established  in  sequential  order 
//therefore  if  slave  [0] . connection  does  not  exist  there  is  no  reason  to  complete  the  loop) 
}//end  for 
} 

// - 

void  _ fastcall  TBT_net : : CBTestRoleCloseUp(TObject  *Sender){ 

localDevice . conductingTest  =  CBTestRole->ItemIndex; 

if (localDevice . conductingTest){//if  the  local  device  will  be  conducting  the  test... 

//buttons  and  comboboxes 
BBeginTest->Enabled  =  true; 

CBPktType->Enabled  =  true; 

CBDist->Enabled  =  true; 

CBTopology->Enabled  =  true; 

CBNumTrans->Enabled  =  true; 

}//end  if 
else! 

if (! localDevice .master)  //If  the  local  device  is  the  master  the  pkt  type  selection 
//box  is  still  needed. 

CBPktType->Enabled  =  false; 

//buttons  and  comboboxes 
BBeginTest->Enabled  =  false; 

CBDist->Enabled  =  false; 

CBTopology->Enabled  =  false; 

CBNumTrans->Enabled  =  false; 

}//end  else 

} 

// - 

void  _ fastcall  TBT_net : : CBNumTransCloseUp(TObject  *Sender){ 

//Assign  twice  the  number  of  requested  test 
//transmissions  to  "numTestTrans"  because  two 
//tests  are  run  for  each  round  of  tests 
numTestTrans  =  2* (CBNumTrans->ItemIndex) ; 

} 

// - 

void  TransmitTestData(char  connHndlD,  int  fileSize,  unsigned  int  tDataSize){ 

//*******  VARIABLES  ****** 
static  DWORD  dataLength,  dataLeft; 
static  char  *pDataFile; 
char  pktLength[4] ,  cidLsb; 
bool  firstACLpkt  =  false; 

unsigned  int  numACLPktsSent  =0,  n;  //Loop  control  variable 
unsigned  int  buffers Available  =  hostCtrl .numACLBuff ; 

const  unsigned  int  maxPktSize  =  hostCtrl . sizeACLBuff ;  //max  size  of  ACL  pkt  alowable  so  as  not  to 
//overflow  the  ACL  Buffer  of  the  local  BT  module. 

unsigned  int  nextData2Send  =  0;  //contains  the  array  index  of  the  next  data  byte  to  send 
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//if  nextData2Send  ==  dataLength  then  all  data  has  been  sent 

switch  (fileSize){ 
case  SMALL_FILE : 

//SEND  SMALL  FILE 

dataLength  =  cTest . sizeDataShort  +  4; 
pDataFile  =  cTest . dataShort ; 
cidLsb  =  LARGE_FILE; 
transmitlnProgress  =  true; 
firstACLpkt  =  true; 

BT_net->LTestStatus->Caption  =  "Transmitting  Small  File"; 
break; 

case  LARGE_FILE: 

//SEND  LARGE  FILE 

dataLength  =  cTest . sizeDataLong  +  4; 
pDataFile  =  cTest . dataLong; 
cidLsb  =  SMALL.FILE; 
transmitlnProgress  =  true; 
firstACLpkt  =  true; 

BT_net->LTestStatus->Caption  =  "Transmitting  Large  File"; 
break; 

case  RETRANSMIT: 

//LOCAL  DEVICE  IS  NOT  CONDUCTING  TEST 
//RETRANSMIT  THE  RECEIVED  DATA 

dataLength  =  tDataSize  +  4; 
pDataFile  =  testDataBuf f ; 
firstACLpkt  =  true; 

if (tDataSize  ==  2){  //A  timeout  has  occured 
*(pDataFile)  =  0x02;  //L2CAP  pkt  length  lsb 
* (pDataFile+1)  =  0x00;  //L2CAP  pkt  length  msb 
}  //end  if 

BT_net->LTestStatus->Caption  =  "Retransmitting  Received  Data" ; 
break; 

case  CONTINUE_TRANSMISSION : 

//The  new  number  of  buffers  available  is  equal 
//to  the  number  of  packets  completed.  This  number 
//is  passed  to  TransmitTestDataO  as  tDataSize 
buf f ersAvailable  =  tDataSize; 
break; 

default : 

BT_net->LTestStatus->Caption  =  "Unknown  File  type  to  Transmit"; 

}//end  switch 

if  (dataLength  <=  maxPktSize) {//If  test  data  is  smaller  that  the  local  device’s 
for  (n=0;  n<dataLength;  n++)  //ACL  Buffer  Size  send  it 
outBuff[n]  =  *  (pDataFile+n)  ; 


//*****  Adding  L2CAP  4  byte  header  ***** 
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//The  first  two  bytes  of  the  header  are  the  L2CAP  Packet  length 
//(i.e.  The  length  of  data  to  be  transmitted  may  be  greater  than  the  HCI 
//packet  lenght) 

//The  second  two  bytes  of  the  header  is  the  Channel  ID  (CID)  and  can 
//range  from  0x0040  to  OxFFFF.  For  test  data  use  OxEEOO 


if  (  (f ileSize ! =RETRANSMIT)  &&  (f ileSize !=C0NTINUE_TRANSMISSI0N)){ 
Int2Char (dataLength-4,  pktLength) ; 


outBuf  f  [0] 
outBuf f  [1] 
outBuf  f  [2] 
outBuf  f  [3] 
} 


=  pktLength [0] ;  //L2CAP  pkt  length  lsb 
=  pktLength [1] ;  //L2CAP  pkt  length  msb 
=  cidLsb;  //CID  lsb 
=  TEST_DATA_MSB ;  //CID  msb 


//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Transmitting  Test  Data"; 
BT_net->LStatus2->Caption  =  "Packet  is  <  400  bytes"; 


pktSize  =  SendACLPkt (connHndl ,  dataLength,  FIRST_PKT_P2P ,  outBuff); 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 
if  (f ileSize  !=  -1) 
cTest .beginTransmit () ; 

}//end  if 

else!  //The  data  is  too  large  to  send  in  one  ACL  Packet ...  it  must  be  split  up 
while ( (nextData2Send  !=  dataLength)  &&  (numACLPktsSent  !=  buf f ersAvailable) ) { 

if  (dataLength  >  (nextData2Send+maxPktSize) ) {  //enough  data  exists  to  send  another  "full"  ACL  pkt. 

//Load  up  the  output  Buffer 

for  (n=0;  n<maxPktSize ;  n++) 

outBuff [n]  =  * (pDataFile+nextData2Send+n) ; 

if  (f irstACLpkt) { 

//If  this  is  the  first  ACL  pkt  an  L2CAP  header  needs  to  be 
//added  and  also  the  ACL  PB  flag  must  be  set  to  first  packet 


f irstACLpkt  =  false; 


if  ((f ileSize !=RETRANSMIT)  &&  (f ileSize !=C0NTINUE_TRANSMISSI0N)){ 
Int2Char (dataLength-4,  pktLength) ; 


outBuff  [0] 
outBuff  [1] 
outBuff  [2] 
outBuff  [3] 
} 


=  pktLength [0] ;  //L2CAP  pkt  length  lsb 
=  pktLength [1] ;  //L2CAP  pkt  length  msb 
=  cidLsb;  //CID  lsb 
=  TEST_DATA_MSB ;  //CID  msb 


//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Transmitting  Test  Data"; 
BT_net->LStatus2->Caption  =  "1st  ACL  pkt  of  large  L2CAP  pkt"; 


pktSize  =  SendACLPkt (connHndl ,  maxPktSize,  FIRST_PKT_P2P ,  outBuff); 


WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &OVL) ; 
if  (fileSize  !=  -1) 
cTest .beginTransmit () ; 

}//end  if 
else-( 

//If  this  is  not  the  fist  ACL  pkt  no  L2CAP  header  needs  to  be  added 
//but  the  ACL  PB  flag  must  be  set  to  continuing  packet 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Transmitting  Test  Data"; 
BT_net->LStatus2->Caption  =  "Continuing  ACL  pkt  of  large  L2CAP  pkt"; 

pktSize  =  SendACLPkt (connHndl ,  maxPktSize,  C0NT_PKT_P2P ,  outBuff); 
WriteFile  (Cl ,  &outBuff,  pktSize,  &VAL,  &QVL) ; 

}//end  else 

nextData2Send  =  nextData2Send  +  maxPktSize;  //increment  nextData2Send 
}//end  if 

else{  //There  is  not  enough  data  left  to  send  a  "full"  ACL  pkt. 
dataLeft  =  dataLength  -  nextData2Send; 

//Load  up  the  output  Buffer 

for  (n=0;  n<dataLeft;  n++) 

outBuff  [n]  =  * (pDataFile+nextData2Send+n) ; 

//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 
ClearStatus () ; 

BT_net->LStatusl->Caption  =  "Transmitting  Test  Data"; 

BT_net->LStatus2->Caption  =  "Partially  full  ACL  pkt  for  large  L2CAP  pkt"; 

pktSize  =  SendACLPkt (connHndl ,  dataLeft,  C0NT_PKT_P2P ,  outBuff); 

WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &QVL) ; 

nextData2Send  =  dataLength;  //end  the  while  loop 
}//end  else 

numACLPktsSent++;  //Increment  the  number  of  ACL  pkts  sent 
}//end  while 
}//end  else 

if (nextData2Send  ==  dataLength) {  //Transmission  is  complete 
BT_net->LStatus2->Caption  =  "Finished  Transmitting  File"; 
transmitlnProgress  =  false;  //Transmission  is  finished 

//Reset  Static  variables 
nextData2Send  =  0; 
dataLength  =  0; 
dataLeft  =  0; 

}//end  if 

} 

// - 

void  _ fastcall  TBT_net : : BConnect2Click(T0bject  *Sender){ 


//****  These  following  lines  of  code  for  only  a  two  device  connection 
//****  it  must  be  deleted  or  edited  for  to  be  used  in  a  piconet 
//****  consisting  of  more  than  two  devices 

pktSize  =  CreateConnection(&slave [1] ,  localDevice .pktType ,  outBuff ) ; 
WriteFile (Cl ,  &outBuff,  pktSize,  &VAL,  &0VL) ; 

} 

// - 

void  ResetDisplay (){ 

/ /Buttons 

BT_net->BInquiry->Enabled  =  false; 

BT_net->BConnectl->Enabled  =  false; 

BT_net->BConnect2->Enabled  =  false; 

BT_net->BBeginTest->Enabled  =  false; 

//Combo  Boxes 

BT_net->CBPktType->Enabled  =  false; 

BT_net->CBDist->Enabled  =  false; 

BT_net->CBTopology->Enabled  =  false; 

BT_net->CBNumTrans->Enabled  =  false; 

BT_net->CBSlaveSelect->Enabled  =  false; 

//Display  Labels 

BT_net->LBD_ADDR_rdl->Caption  =  "  ";  //BT_ADDR  for  remote  device  1 
BT_net->LBD_ADDR_rd2->Caption  =  "  ";  //BT_ADDR  for  remote  device  2 
BT_net->LBD_ADDR_ld->Caption  =  "  ";  //BT_ADDR  for  local  device 
BT_net->LConnectHndll->Caption  =  "  " ; 

BT_net->LConnectHndl2->Caption  =  "  " ; 

BT_net->LInqRes->Caption  =  "  " ; 

BT_net->LRSSIl->Caption  =  "  "; 

BT_net->LRSSI2->Caption  =  "  "; 

BT_net->LRx->Caption  =  "  "; 

BT_net->LTestStatus->Caption  =  "  "; 

BT_net->LStatusl->Caption  =  "  "; 

BT_net->LStatus2->Caption  =  "  "; 

BT_net->LStatus3->Caption  =  "  "; 

BT_net->LCurTrans->Caption  =  "  " ; 

BT_net->LPktNum->Caption  =  "  " ; 

} 

// - 

void  ClearStatus () { 

//Clear  all  of  the  status  labels 
BT_net->LStatusl->Caption  =  "  "; 

BT_net->LStatus2->Caption  =  "  "; 

BT_net->LStatus3->Caption  =  "  "; 

} 

// - 

void  DisconnectingO { 


ClearStatus  () ; 
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BT_net->LConnectHndll->Caption  = 
BT_net->LConnectHndl2->Caption  = 
BT_net->LRSSIl->Caption  =  " 
BT_net->LRSSI2->Caption  =  " 
BT_net->LTestStatus->Caption  =  " 
BT_net->LCurTrans->Caption  =  "  " 
BT_net->LPktNum->Caption  =  "  " ; 

} 


